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)
|
