commit ac728485ca9b511310f319bc7424f4bc64fc389c parent cfbf70c543bd60dd9c0d54f4e008fd85831b108d Author: Yuval Langer <yuval.langer@gmail.com> Date: Mon, 17 Jun 2024 05:18:31 +0300 Comment out an artisanal procedure that already exists in Guile. Diffstat:
| M | pstk.scm | | | 17 | +++++++++-------- |
1 file changed, 9 insertions(+), 8 deletions(-)
diff --git a/pstk.scm b/pstk.scm @@ -654,14 +654,15 @@ (set! wish-input wish-input-pipe) (set! wish-output wish-output-pipe))) -(define (read-line in) - (define (collect-chars 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 '())))) +;; XXX: Commenting because Guile already have a read-line. +;; (define (read-line in) +;; (define (collect-chars 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 '())))) (define (eval-wish cmd) (wish (string-append