mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-05 23:20:38 +02:00
Code Activity

* Don't set continuation flag for leading whitespace.

Browse source
This commit is contained in:
Neil Jerram 2001-03-07 23:03:37 +00:00
parent 66418d3465
commit 403a334593
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/ChangeLog
View file

@ -1,3 +1,9 @@
2001-03-07 Neil Jerram <neil@ossau.uklinux.net>
* buffered-input.scm (make-line-buffered-input-port): Don't set
the continuation flag for leading whitespace. Thanks to Dirk
Herrmann for the suggestion.
2001-03-05 Neil Jerram <neil@ossau.uklinux.net> 2001-03-05 Neil Jerram <neil@ossau.uklinux.net>
* optargs.scm (rest-arg->keyword-binding-list): Use "'()" instead * optargs.scm (rest-arg->keyword-binding-list): Use "'()" instead

3
ice-9/buffered-input.scm
View file

@ -79,7 +79,8 @@ first call to @var{reader}, and so @var{reader} will be called with
(else (else
(let ((res (string-ref read-string string-index))) (let ((res (string-ref read-string string-index)))
(set! string-index (+ 1 string-index)) (set! string-index (+ 1 string-index))
(set! (buffered-input-continuation? port) #t) (if (not (char-whitespace? res))
(set! (buffered-input-continuation? port) #t))
res))))) res)))))
(port #f)) (port #f))
(set! port (make-soft-port (vector #f #f #f get-character #f) "r")) (set! port (make-soft-port (vector #f #f #f get-character #f) "r"))