mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

(repl-reader): Use value of current-reader fluid to

Browse source 
do the read, if set.  (Thanks to Ludovic Courtès for the patch.)
This commit is contained in:
Neil Jerram 2006-01-13 17:36:52 +00:00
parent c255614e26
commit 27d64e2b4a
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/ChangeLog
View file

@ -1,3 +1,8 @@
2006-01-13 Neil Jerram <neil@ossau.uklinux.net>
* boot-9.scm (repl-reader): Use value of current-reader fluid to
do the read, if set. (Thanks to Ludovic Courtès for the patch.)
2005-12-14 Neil Jerram <neil@ossau.uklinux.net>
* boot-9.scm (load-module): Support an optional custom reader arg,

2
ice-9/boot-9.scm
View file

@ -2540,7 +2540,7 @@
(display prompt)
(force-output)
(run-hook before-read-hook)
(read (current-input-port))))
((or (fluid-ref current-reader) read) (current-input-port))))
(define (scm-style-repl)