diff options
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|))) |