* Ikarus can now be started like:

$ ikarus [-b boot-file-name] file ... [-- arg ...]
  
  files will be "load"ed sequentially after the greeting message is
  printes.  args are available from the command-line-arguments
  parameter.

.bzrignore

@@ -7,3 +7,4 @@
 ./ikarus.boot.back
 .DS_Store
 ../src/ikarus.boot.back
+./ikarus.boot.back

src/libtoplevel.ss

@@ -54,8 +54,20 @@
       (putprop '|#system| '*sc-expander* sysmod)
       (putprop 'scheme '*sc-expander* schmod))))
 
-(begin
+(let-values ([(files args)
+              (let f ([args (command-line-arguments)])
+                (cond
+                  [(null? args) (values '() '())]
+                  [(string=? (car args) "--")
+                   (values '() (cdr args))]
+                  [else
+                   (let-values ([(f* a*) (f (cdr args))])
+                     (values (cons (car args) f*) a*))]))])
+  (current-eval compile)
+  (command-line-arguments args)
   (printf "Petite Ikarus Scheme (Build ~a)\n" (compile-time-date-string))
   (display "Copyright (c) 2006 Abdulaziz Ghuloum\n\n")
-  (current-eval compile)
+  (for-each load files)
   (new-cafe))
+
+