Update of /cvsroot/wisp/wisp/src/builtin
In directory sc8-pr-cvs1:/tmp/cvs-serv9052/builtin
Modified Files:
init.wisp
Log Message:
implemented |system-path-ref|
Index: init.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/init.wisp,v
retrieving revision 1.63
retrieving revision 1.64
diff -u -d -r1.63 -r1.64
--- init.wisp 18 Sep 2002 21:18:04 -0000 1.63
+++ init.wisp 8 Feb 2003 18:13:41 -0000 1.64
@@ -19,6 +19,14 @@
(local *arglist* ((asm NN_pr_get_argument_list)))
+(define *system-path*
+ (make-box '("/usr/local/share/wisp" "/usr/share/wisp")))
+
+(define (system-path-ref (:= new-path))
+ (if (not :=?)
+ (map string-copy (box-ref *system-path*))
+ (set! (box-ref *system-path*) (map string-copy new-path))))
+
(define (run-file opkeys script args)
(if (memq #\V opkeys)
(state-version))
@@ -48,6 +56,8 @@
(string-append home "/.wisp"))))))
(if curdir?
(cons! (box-ref *system-path*) "."))
+ ; set up the *first* environment
+ (set! (dict-ref *user-dictionary* 'system-path-ref) system-path-ref)
(if asm?
(begin
(set! (dict-ref *user-dictionary* 'assemble) assemble)
@@ -70,9 +80,6 @@
(cut load <> *user-dictionary*))))
(else (load (current-input-port) *user-dictionary*)))))
(exit 0))) ; report success
-
-(define *system-path*
- (make-box '("/usr/local/share/wisp" "/usr/share/wisp")))
; If no arguments are given, run an interactive session.
(if (null? *arglist*)
|
