diff options
Diffstat (limited to 'src/boot/strap/includer.clisp')
| -rw-r--r-- | src/boot/strap/includer.clisp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/boot/strap/includer.clisp b/src/boot/strap/includer.clisp index ad66a280..e74c7ea1 100644 --- a/src/boot/strap/includer.clisp +++ b/src/boot/strap/includer.clisp @@ -24,8 +24,6 @@ (T (READ-FROM-STRING (CONCAT "(" (|subString| |s| |n| (- |l| |n|)) ")")))))))) -(DEFUN |shoeReadLine| (|stream|) (READ-LINE |stream| NIL NIL)) - (DEFUN |shoeConsole| (|line|) (WRITE-LINE |line| *TERMINAL-IO*)) (DEFUN |shoeSpaces| (|n|) (|makeString| |n| (|char| '|.|))) @@ -135,9 +133,11 @@ (DEFUN |bRgen1| (|s|) (PROG (|a|) (RETURN - (COND - ((SETQ |a| (|shoeReadLine| |s|)) (CONS |a| (|bRgen| |s|))) - (T (LIST '|nullstream|)))))) + (PROGN + (SETQ |a| (|readLine| |s|)) + (COND + ((NOT (EQUAL |a| |%nothing|)) (CONS |a| (|bRgen| |s|))) + (T (LIST '|nullstream|))))))) (DEFUN |bIgen| (|n|) (|bDelay| #'|bIgen1| (LIST |n|))) |