(library (ikarus command-line)
  (export command-line-arguments)
  (import 
    (ikarus system $arg-list)
    (except (ikarus) 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))))))