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

* Fixes bug 159776: --r6rs-script changes behavior of (command-line) 

(command-line) now returns ("*interactive*" a b c) when you run
  ikarus -- a b c
This commit is contained in:
Abdulaziz Ghuloum 2007-11-03 20:12:31 -04:00
parent 2c1e93f937
commit e7d66d95b4
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/ikarus.main.ss
View File

@ -60,9 +60,7 @@
(cond (cond
[(eq? script-type 'r6rs-script) [(eq? script-type 'r6rs-script)
(command-line-arguments (cons script args)) (command-line-arguments (cons script args))
;(for-each load files)
(load-r6rs-top-level script) (load-r6rs-top-level script)
;(load script)
(exit 0)] (exit 0)]
[(eq? script-type 'script) ; no greeting, no cafe [(eq? script-type 'script) ; no greeting, no cafe
(command-line-arguments (cons script args)) (command-line-arguments (cons script args))
@ -71,7 +69,7 @@
(exit 0)] (exit 0)]
[else [else
(print-greeting) (print-greeting)
(command-line-arguments args) (command-line-arguments (cons "*interactive*" args))
(for-each load files) (for-each load files)
(new-cafe) (new-cafe)
(exit 0)]))) (exit 0)])))