[Wisp-cvs] wisp/src/builtin init.wisp,1.61,1.62 sysenv.wisp,1.23,1.24

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

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)