[Wisp-cvs] wisp/tools worth,1.27,1.28

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

Update of /cvsroot/wisp/wisp/tools
In directory usw-pr-cvs1:/tmp/cvs-serv6849/tools

Modified Files:
	worth 
Log Message:
Started the string format transition.

Index: worth
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/worth,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- worth	7 Sep 2002 21:58:41 -0000	1.27
+++ worth	7 Sep 2002 22:02:43 -0000	1.28
@@ -375,6 +375,9 @@
                            (else
                              (raise 'too-few-registers
                                     `(->unaliased-register ,i)))))))
+                   ((->non-expression i)
+                     (if (cons? (list-ref regstack i))
+                       (->register i)))
                    ((copy i)
                      (stack>=! (+ i 1))
                      (my object (list-ref regstack i)
@@ -562,6 +565,10 @@
                                                    (null? (cddr word))))
                                        (raise 'worth-word? word))
                                      (->unaliased-register (second word)))
+                           ((->/expr) (if (not (and (cons? (cdr word))
+                                                    (null? (cddr word))))
+                                        (raise 'worth-word? word))
+                                      (->non-expression (second word)))
                            ((stack>=!) (if (not (and (cons? (cdr word))
                                                      (null? (cddr word))))
                                          (raise 'worth-word? word))