diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-04-03 13:16:05 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-04-03 13:16:05 -0700 |
| commit | ef0986f320d50e1a9eae55369a168f1704f4ee3c (patch) | |
| tree | ce93442c045ece140b026fba899d04765407c763 /cppawk-include/fun.h | |
| parent | f40b4fb9823af7797ad5fdef0259772b1179d5c5 (diff) | |
| download | cppawk-ef0986f320d50e1a9eae55369a168f1704f4ee3c.tar.gz cppawk-ef0986f320d50e1a9eae55369a168f1704f4ee3c.tar.bz2 cppawk-ef0986f320d50e1a9eae55369a168f1704f4ee3c.zip | |
iter, vars, fun: use only cons-priv.
Diffstat (limited to 'cppawk-include/fun.h')
| -rw-r--r-- | cppawk-include/fun.h | 8 |
1 files changed, 4 insertions, 4 deletions
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 |