[Wisp-cvs] wisp/src/builtin parser.wisp,1.116,1.117

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

Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv31341/src/builtin

Modified Files:
	parser.wisp 
Log Message:
Dropped the binary ~ syntax.

Index: parser.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/parser.wisp,v
retrieving revision 1.116
retrieving revision 1.117
diff -u -d -r1.116 -r1.117
--- parser.wisp	4 Sep 2002 14:33:35 -0000	1.116
+++ parser.wisp	4 Sep 2002 14:34:29 -0000	1.117
@@ -11,11 +11,8 @@
 ; 0. parentheses
 ; 1. binary | []
 ; 2. unary ' , @ |
-; 3. binary ~
 ;
-; Note that no space is allowed between the operator and operand,
-; except for ~ in which case the restriction only applies to the
-; left side.
+; Note that no space is allowed between the operator and operand.
 ; "' foo" is invalid, as is "foo| bar".  Consequently, "foo|bar" and
 ; "foo |bar" parse differently.
 ;
@@ -196,7 +193,7 @@
                                         "#"
                                         "#$,[d]")))))))))
                  ((#\") `(PARSED . ,(read-external-string port)))
-                 ((#\( #\) #\[ #\] #\~) c)
+                 ((#\( #\) #\[ #\]) c)
                  (else
                    `(invalid-char . ,c)))))))))
    ((read-list port (head '()))
@@ -321,16 +318,7 @@
        i)))
 
   (define (read (port *stdin*))
-    (my x (read-complex-structure port)
-      (if (and (not (eof-object? x))
-               (eqv? (peek-char port) #\~))
-        (begin
-          (read-char port)
-          (my y (read-complex-structure port)
-            (if (eof-object? y)
-              (raise 'premature-eof port))
-            (list 'set! x y)))
-        x)))
+    (read-complex-structure port))
 
   (define (read-until-dollar port)
     (let* ((term #f)