Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv1097/src/builtin
Modified Files:
init.wisp sysenv.wisp
Log Message:
Cleanup.
Index: init.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/init.wisp,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -d -r1.61 -r1.62
--- init.wisp 18 Sep 2002 21:11:14 -0000 1.61
+++ init.wisp 18 Sep 2002 21:13:37 -0000 1.62
@@ -17,6 +17,8 @@
Wisp is free software as defined by GPL 2.0.\n\n")
(exit 0))
+(local *arglist* ((asm NN_pr_get_argument_list)))
+
(define (run-file opkeys script args)
(if (memq #\V opkeys)
(state-version))
Index: sysenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/sysenv.wisp,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- sysenv.wisp 26 Aug 2002 15:54:20 -0000 1.23
+++ sysenv.wisp 18 Sep 2002 21:13:37 -0000 1.24
@@ -7,7 +7,7 @@
;;;; @(#) $Id$
;; Parse the environment into an association list
-(my environ (let ((el envilist)
+(my environ (let ((el ((asm NN_pr_get_environment)))
(al '()))
(while (not (null? el))
(my p (split-by-char #\= (car el) 1)
|
