From 5986d1ca9a814c4c7da81cebd3fb152e4592036e Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 16 Apr 2011 14:51:48 +0000
Subject: 	* boot/tokens.boot (shoeIdChar): Accept "!" too.

---
 src/interp/g-util.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/g-util.boot')

diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot
index 89aceabc..6e5da354 100644
--- a/src/interp/g-util.boot
+++ b/src/interp/g-util.boot
@@ -836,7 +836,7 @@ $charComma     == char '_,
 $charPeriod    == char '_.
 $checkPrenAlist := [[char '_(,:char '_)],[char '_{,:char '_}],[char '_[,:char '_]]]
 $charEscapeList:= [char '_%,char '_#,$charBack]
-$charIdentifierEndings := [char '__, char '_!, char '_?]
+$charIdentifierEndings := [char '__, char "!", char '_?]
 $charSplitList := [$charComma,$charPeriod,char '_[, char '_],$charLbrace, $charRbrace, char '_(, char '_), char '_$, char '_%]
 $charDelimiters := [$charBlank, char '_(, char '_), $charBack]
 $HTspadmacros := '("\spadtype" "\spadcommand" "\spadop" "\spadfun" "\spadatt" "\spadsyscom" "\spad" "\s")
-- 
cgit v1.2.3