Update of /cvsroot/wisp/wisp/tools
In directory usw-pr-cvs1:/tmp/cvs-serv31654/tools
Modified Files:
worth
Log Message:
Dropped |sys:raw:lseek|.
Index: worth
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/worth,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- worth 4 Sep 2002 14:31:42 -0000 1.25
+++ worth 4 Sep 2002 14:35:28 -0000 1.26
@@ -645,6 +645,22 @@
(stack<=! 2)
(->register 0 reg2)
(->register 1 reg1)))
+ ((and (cons? reqs)
+ (cons? (cdr reqs))
+ (cons? (cddr reqs))
+ (null? (cdddr reqs))
+ reqs -> (reg1 reg2 reg3)
+ (assq reg1 regref#)
+ (assq reg2 regref#)
+ (assq reg3 regref#)
+ (not (eq? reg1 reg2))
+ (not (eq? reg1 reg3))
+ (not (eq? reg2 reg3)))
+ (my (reg1 reg2 reg3) reqs
+ (stack<=! 3)
+ (->register 0 reg3)
+ (->register 1 reg2)
+ (->register 2 reg1)))
(else (raise 'unable-to-conform
reqs)))))
((believe) (my claim (cdr word)
|
