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

* boot-9.scm: added fix suggested by Matthias for #. read

Browse source 
extension -- now only works if read-eval? is not #f.
This commit is contained in:
Rob Browning 2001-07-06 17:38:40 +00:00
parent 0d6209aa9e
commit 600c958485
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -779,8 +779,15 @@
(read-hash-extend #\' (lambda (c port) (read-hash-extend #\' (lambda (c port)
(read port))) (read port)))
(read-hash-extend #\. (lambda (c port)
(eval (read port) (interaction-environment)))) (define read-eval? (make-fluid))
(fluid-set! read-eval? #f)
(read-hash-extend #\.
(lambda (c port)
(if (fluid-ref read-eval?)
(eval (read port) (interaction-environment))
(error
"#. read expansion found and read-eval? is not #f."))))
;;; {Command Line Options} ;;; {Command Line Options}