[Wisp-cvs] wisp/tools worth,1.34,1.35

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

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