Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv30646/src/builtin
Modified Files:
parser.wisp
Log Message:
Revised the list of named characters.
Index: parser.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/parser.wisp,v
retrieving revision 1.114
retrieving revision 1.115
diff -u -d -r1.114 -r1.115
--- parser.wisp 26 Aug 2002 16:18:24 -0000 1.114
+++ parser.wisp 4 Sep 2002 14:32:24 -0000 1.115
@@ -27,17 +27,19 @@
; when auto-indenting or matching parentheses.
(local char-names
'((nul . #\U+00)
+ (null . #\U+00)
(bell . #\U+07)
(backspace . #\U+08)
(tab . #\U+09)
(newline . #\U+0A)
- (formfeed . #\U+0C)
+ (linefeed . #\U+0A)
+ (vtab . #\U+0B)
+ (page . #\U+0C)
(return . #\U+0D)
(space . #\U+20)
- (sharp . #\U+23)
(open . #\U+28)
(close . #\U+29)
- (del . #\U+7F)))
+ (rubout . #\U+7F)))
(define (char->control-char ch)
(cond
@@ -137,7 +139,7 @@
((#\@) 'splicing)
((#\,) 'unquote)
((#\|) 'bar)))))) ; it's special
- ((#\sharp)
+ ((#\#)
(my d (peek-char port)
(cond
; #x is a special case: think #xFED
|
