From 600c9584853d28f734c5769e2f039fd1e32836c8 Mon Sep 17 00:00:00 2001
From: Rob Browning <rlb@defaultvalue.org>
Date: Fri, 6 Jul 2001 17:38:40 +0000
Subject: [PATCH] * boot-9.scm: added fix suggested by Matthias for #. read
 extension -- now only works if read-eval? is not #f.

---
 ice-9/boot-9.scm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index ac2e48681..8d00cd988 100644
--- 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."))))
 
 
 ;;; {Command Line Options}