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