From e7d66d95b483c13835ed91d1709a78c736a3c2a8 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Sat, 3 Nov 2007 20:12:31 -0400 Subject: [PATCH] * 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 --- scheme/ikarus.main.ss | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/scheme/ikarus.main.ss b/scheme/ikarus.main.ss index 2d888be..a835015 100644 --- a/scheme/ikarus.main.ss +++ b/scheme/ikarus.main.ss @@ -60,9 +60,7 @@ (cond [(eq? script-type 'r6rs-script) (command-line-arguments (cons script args)) - ;(for-each load files) (load-r6rs-top-level script) - ;(load script) (exit 0)] [(eq? script-type 'script) ; no greeting, no cafe (command-line-arguments (cons script args)) @@ -71,7 +69,7 @@ (exit 0)] [else (print-greeting) - (command-line-arguments args) + (command-line-arguments (cons "*interactive*" args)) (for-each load files) (new-cafe) (exit 0)])))