* removed import of (scheme) from ikarus.command-line.ss

This commit is contained in:
Abdulaziz Ghuloum 2007-05-06 18:04:15 -04:00
parent 08ba1ee1b9
commit edc01b587b
3 changed files with 5 additions and 4 deletions

Binary file not shown.

View File

@ -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)

View File

@ -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 ]