From ef0986f320d50e1a9eae55369a168f1704f4ee3c Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 3 Apr 2022 13:16:05 -0700 Subject: iter, vars, fun: use only cons-priv. --- cppawk-include/fun.h | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'cppawk-include/fun.h') diff --git a/cppawk-include/fun.h b/cppawk-include/fun.h index e14adf5..77ebf38 100644 --- a/cppawk-include/fun.h +++ b/cppawk-include/fun.h @@ -37,7 +37,7 @@ #endif #ifndef __CPPAWK_CONS_H -#include "cons.h" +#include "cons-priv.h" #endif #if !__have_indirect_functions @@ -46,9 +46,9 @@ #define bind(fname, env) cons(#fname, env) #define fun(fname) #fname -#define call(fobj, ...) (consp(fobj) \ - ? progn(__g(f) = car(fobj), \ - @__g(f)(cdr(fobj), __VA_ARGS__)) \ +#define call(fobj, ...) (__consp(fobj) \ + ? progn(__g(f) = __car(fobj), \ + @__g(f)(__cdr(fobj), __VA_ARGS__)) \ : @fobj(__VA_ARGS__)) #endif -- cgit v1.2.3