[Wisp-cvs] wisp/tools worth,1.30,1.31

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

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

Modified Files:
	worth 
Log Message:
Moved file descriptor set manipulation from the Wisp level to the Worth level.

Index: worth
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/worth,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- worth	18 Sep 2002 20:55:17 -0000	1.30
+++ worth	18 Sep 2002 20:58:08 -0000	1.31
@@ -544,12 +544,13 @@
                                                  (map (lambda (item)
                                                         (cond
                                                           ((not (cons? item))
-                                                           item)
+                                                            item)
+                                                          ; FIXME: report a suitable error if the stack is too shallow
                                                           ((eq? (car item)
                                                                 'unquote)
-                                                           (list-ref regstack
-                                                                     (second
-                                                                       item)))
+                                                            (list-ref regstack
+                                                                      (second
+                                                                        item)))
                                                           (else
                                                             (loop item))))
                                                       l)))))