10 lines
221 B
Scheme
10 lines
221 B
Scheme
#lang scheme/base
|
|
|
|
(require scheme/mpair)
|
|
|
|
(provide command-line exit)
|
|
|
|
(define (command-line)
|
|
(mcons (path->string (find-system-path 'run-file))
|
|
(list->mlist (vector->list (current-command-line-arguments)))))
|