diff options
author | Gabriel Dos Reis <gdr@axiomatics.org> | 2015-12-24 10:22:27 -0800 |
---|---|---|
committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2015-12-24 10:22:27 -0800 |
commit | bb81c833c0ff2ff8df936a0cd0182cf255729a41 (patch) | |
tree | a4dfaffc2374c62aa69e73ccd3653373485b7c8d /src/boot/strap/includer.clisp | |
parent | db9c4c7cd0c08a8b35a7d56d0279139021d8b945 (diff) | |
download | open-axiom-bb81c833c0ff2ff8df936a0cd0182cf255729a41.tar.gz |
Translate apply(f,[args]) as FUNCALL(f,args)
Diffstat (limited to 'src/boot/strap/includer.clisp')
-rw-r--r-- | src/boot/strap/includer.clisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/strap/includer.clisp b/src/boot/strap/includer.clisp index e2cf37f2..bd556ea1 100644 --- a/src/boot/strap/includer.clisp +++ b/src/boot/strap/includer.clisp @@ -83,7 +83,7 @@ (DEFUN |bMap1| (|f| |x|) (COND ((|bStreamNull| |x|) |$bStreamNil|) - (T (CONS (APPLY |f| (LIST (CAR |x|))) (|bMap| |f| (CDR |x|)))))) + (T (CONS (FUNCALL |f| (CAR |x|)) (|bMap| |f| (CDR |x|)))))) (DEFUN |bDelay| (|f| |x|) (CONS '|nonnullstream| (CONS |f| |x|))) @@ -100,7 +100,7 @@ (DEFUN |bNext1| (|f| |s|) (LET* (|h|) (COND ((|bStreamNull| |s|) (LIST '|nullstream|)) - (T (SETQ |h| (APPLY |f| (LIST |s|))) + (T (SETQ |h| (FUNCALL |f| |s|)) (|bAppend| (CAR |h|) (|bNext| |f| (CDR |h|))))))) (DEFUN |bRgen| (|s|) (|bDelay| #'|bRgen1| (LIST |s|))) |