conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

--script now passes the script name as a first argument to command-line-arguments

This commit is contained in:
Abdulaziz Ghuloum 2006-12-02 10:29:25 -05:00
parent 2fdaf456f8
commit e32a8cc972
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
lib/ikarus.boot
View File

Binary file not shown.

3
lib/libtoplevel.ss
View File

@ -71,15 +71,16 @@
(let-values ([(f* script a*) (f (cdr args))]) (let-values ([(f* script a*) (f (cdr args))])
(values (cons (car args) f*) script a*))]))]) (values (cons (car args) f*) script a*))]))])
(current-eval compile) (current-eval compile)
(command-line-arguments args)
(cond (cond
[script ; no greeting, no cafe [script ; no greeting, no cafe
(command-line-arguments (cons script args))
(for-each load files) (for-each load files)
(load script) (load script)
(exit 0)] (exit 0)]
[else [else
(printf "Ikarus Scheme (Build ~a)\n" (compile-time-date-string)) (printf "Ikarus Scheme (Build ~a)\n" (compile-time-date-string))
(display "Copyright (c) 2006 Abdulaziz Ghuloum\n\n") (display "Copyright (c) 2006 Abdulaziz Ghuloum\n\n")
(command-line-arguments args)
(for-each load files) (for-each load files)
(new-cafe)])) (new-cafe)]))