[Wisp-cvs] wisp/tools debsnap,1.6,1.7 was,1.8,1.9 worth,1.23,1.24

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

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

Modified Files:
	debsnap was worth 
Log Message:
Dropped the |gimme| special form and created the builtin module mechanism.

Index: debsnap
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/debsnap,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- debsnap	26 Aug 2002 16:15:02 -0000	1.6
+++ debsnap	4 Sep 2002 14:30:56 -0000	1.7
@@ -8,9 +8,8 @@
 ;;
 ;;;; @(#) $Id$
 
-(gimme syscalls)
-
-(use files lists regex strings unix)
+(use
+  files lists regex strings syscalls unix)
 
 (call-process "make distdir" 'signal-failure)
 

Index: was
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/was,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- was	26 Aug 2002 16:18:24 -0000	1.8
+++ was	4 Sep 2002 14:30:56 -0000	1.9
@@ -9,9 +9,7 @@
 ;;;; @(#) $Id$
 
 (use
-  cpu/ia32 format/elfexec getopt)
-
-(gimme syscalls)
+  cpu/ia32 format/elfexec getopt syscalls)
 
 (my (input output) (getopt '((option ("output" #\o) value output)
                              (arg input mandatory)

Index: worth
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/worth,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- worth	4 Sep 2002 14:26:58 -0000	1.23
+++ worth	4 Sep 2002 14:30:56 -0000	1.24
@@ -11,9 +11,8 @@
 (define worth-version "0.0.1")
 
 (use
-  cpu/general cpu/ia32 format/as format/elfexec getopt lists unix)
-
-(gimme syscalls)
+  cpu/general cpu/ia32 format/as format/elfexec getopt lists syscalls
+  unix)
 
 (define builtin-words
   '(< <= <> = > >= begin else if then u< u<= u> u>= until))