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

[bpt/guile.git] / ice-9 / boot-9.scm

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index ac2e486..8d00cd9 100644 (file)
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -779,8 +779,15 @@
 
 (read-hash-extend #\' (lambda (c 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."))))
 
 \f
 ;;; {Command Line Options}