[Wisp-cvs] wisp/src/builtin parser.wisp,1.114,1.115

[<di...@us...>]

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