ikarus/src/ikarus.command-line.ss

17 lines
470 B
Scheme
Raw Normal View History

(library (ikarus command-line)
2007-08-26 21:24:22 -04:00
(export command-line-arguments command-line)
(import
(ikarus system $arg-list)
2007-08-26 21:24:22 -04:00
(except (ikarus) command-line command-line-arguments))
2007-08-26 21:24:22 -04:00
(define (command-line) (command-line-arguments))
(define command-line-arguments
(make-parameter ($arg-list)
(lambda (x)
(if (and (list? x) (andmap string? x))
x
(error 'command-list
"invalid command-line-arguments ~s\n" x))))))