commit cfbf70c543bd60dd9c0d54f4e008fd85831b108d parent 0afc7dc8eae1c0823855275aa8de819e79c77f90 Author: Yuval Langer <yuval.langer@gmail.com> Date: Mon, 17 Jun 2024 05:08:59 +0300 Fix a botched letrec named lambdas to define procedure conversion. Diffstat:
| M | pstk.scm | | | 7 | +++---- |
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/pstk.scm b/pstk.scm @@ -656,10 +656,9 @@ (define (read-line in) (define (collect-chars c s) - (lambda (c s) - (cond ((or (eof-object? c) (char=? c #\newline)) - (apply string (reverse s))) - (else (collect-chars (read-char in) (cons c s)))))) + (cond ((or (eof-object? c) (char=? c #\newline)) + (apply string (reverse s))) + (else (collect-chars (read-char in) (cons c s))))) (define first-char (read-char in)) (cond ((eof-object? first-char) first-char) (else (collect-chars first-char '()))))