[Wisp-cvs] wisp/tools worth,1.25,1.26

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

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)