Update of /cvsroot/wisp/wisp/tools
In directory usw-pr-cvs1:/tmp/cvs-serv25589/tools
Modified Files:
worth
Log Message:
Fixed Worth's handling of binary operators with constant arguments.
Index: worth
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/worth,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -d -r1.34 -r1.35
--- worth 26 Sep 2002 18:22:47 -0000 1.34
+++ worth 30 Sep 2002 18:24:37 -0000 1.35
@@ -703,7 +703,7 @@
(my (b a . rest) regstack
(set! regstack
(cons
- (case oper
+ (case word
((+) (+ a b))
((-) (- a b))
((*) (* a b))
@@ -714,7 +714,7 @@
b)))
((rshift) (>> (reduce-to-utetra a)
b))
- (else (raise 'binary-operator? oper)))
+ (else (raise 'huh? word)))
rest))))
(else
(raise 'huh? word))))
|
