diff --git a/src/ikarus.boot b/src/ikarus.boot index ffa2907..86f1b31 100644 Binary files a/src/ikarus.boot and b/src/ikarus.boot differ diff --git a/src/ikarus.command-line.ss b/src/ikarus.command-line.ss index 780ab18..174de87 100644 --- a/src/ikarus.command-line.ss +++ b/src/ikarus.command-line.ss @@ -1,8 +1,9 @@ (library (ikarus command-line) (export command-line-arguments) - (import (only (scheme) $arg-list) - (except (ikarus) command-line-arguments)) + (import + (ikarus system $arg-list) + (except (ikarus) command-line-arguments)) (define command-line-arguments (make-parameter ($arg-list) diff --git a/src/makefile.ss b/src/makefile.ss index 9cc9f62..2b67b2e 100755 --- a/src/makefile.ss +++ b/src/makefile.ss @@ -112,7 +112,7 @@ [$tcbuckets (ikarus system $tcbuckets)] [$io (ikarus system $io)] [$apply (ikarus system $apply)] - ;[$lists (ikarus system $lists)] + [$arg-list (ikarus system $arg-list)] ;[$lists (ikarus system $lists)] ;[$lists (ikarus system $lists)] ;[$lists (ikarus system $lists)] @@ -533,12 +533,12 @@ [$unread-char $io] ; (ikarus system $apply) [$$apply $apply] + [$arg-list $arg-list] ; (ikarus system) [$forward-ptr? s ] [$unbound-object? s ] [$make-call-with-values-procedure s ] [$make-values-procedure s ] - [$arg-list s ] [$interrupted? s ] [$unset-interrupted! s ] [$fp-at-base s ]