From efe4bf597c8f28791ad96b651862a9d93895e2c5 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 10 Feb 2009 02:25:01 +0000
Subject: [PATCH] revised honu id syntax (to fix underscore)

svn: r13512
---
 src/mzscheme/src/read.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/read.c b/src/mzscheme/src/read.c
index 050b396bd5..0f18b20ba7 100644
--- a/src/mzscheme/src/read.c
+++ b/src/mzscheme/src/read.c
@@ -429,7 +429,7 @@ void scheme_init_read(Scheme_Env *env)
     delim['`'] -= SCHEME_OK;
     delim['_'] |= HONU_OK;
     {
-      GC_CAN_IGNORE const char *syms = "+-_=?:<>.!%^&*/~|";
+      GC_CAN_IGNORE const char *syms = "+-=?:<>.!%^&*/~|";
       for (i = 0; syms[i]; i++) {
 	delim[(int)syms[i]] |= HONU_SYM_OK;
       }