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

* 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

5
src/ikarus.command-line.ss
View File

@ -1,8 +1,9 @@
(library (ikarus command-line) (library (ikarus command-line)
(export command-line-arguments) (export command-line-arguments)
(import (only (scheme) $arg-list) (import
(except (ikarus) command-line-arguments)) (ikarus system $arg-list)
(except (ikarus) command-line-arguments))
(define command-line-arguments (define command-line-arguments
(make-parameter ($arg-list) (make-parameter ($arg-list)

4
src/makefile.ss
View File

@ -112,7 +112,7 @@
[$tcbuckets (ikarus system $tcbuckets)] [$tcbuckets (ikarus system $tcbuckets)]
[$io (ikarus system $io)] [$io (ikarus system $io)]
[$apply (ikarus system $apply)] [$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)] ;[$lists (ikarus system $lists)]
;[$lists (ikarus system $lists)] ;[$lists (ikarus system $lists)]
@ -533,12 +533,12 @@
[$unread-char $io] [$unread-char $io]
; (ikarus system $apply) ; (ikarus system $apply)
[$$apply $apply] [$$apply $apply]
[$arg-list $arg-list]
; (ikarus system) ; (ikarus system)
[$forward-ptr? s ] [$forward-ptr? s ]
[$unbound-object? s ] [$unbound-object? s ]
[$make-call-with-values-procedure s ] [$make-call-with-values-procedure s ]
[$make-values-procedure s ] [$make-values-procedure s ]
[$arg-list s ]
[$interrupted? s ] [$interrupted? s ]
[$unset-interrupted! s ] [$unset-interrupted! s ]
[$fp-at-base s ] [$fp-at-base s ]