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