From f79464179d0ff3691b414244285d2c2a4e499492 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 15 Apr 2008 01:23:36 +0000
Subject: [PATCH] enable hash-bang as #lang only when reader extensions are
 enabled

svn: r9308
---
 src/mzscheme/src/read.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/mzscheme/src/read.c b/src/mzscheme/src/read.c
index 9a723495b2..5982966f49 100644
--- a/src/mzscheme/src/read.c
+++ b/src/mzscheme/src/read.c
@@ -1701,6 +1701,11 @@ read_inner_inner(Scheme_Object *port, Scheme_Object *stxsrc, Scheme_Hash_Table *
             goto start_over;
           } else if ((ch < 128) && is_lang_nonsep_char(ch)) {
             Scheme_Object *v;
+            if (!params->can_read_reader) {
+              scheme_read_err(port, stxsrc, line, col, pos, 2, 0, indentation,
+                              "read: #! reader expressions not currently enabled");
+              return NULL;
+            }
             v = read_lang(port, stxsrc, line, col, pos, ht, indentation, params, ch);
             if (!v) {
               if (comment_mode & RETURN_FOR_SPECIAL_COMMENT)