suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

r6rs command-line fix

Browse Source 
svn: r8916
This commit is contained in:
Matthew Flatt 2008-03-07 13:22:14 +00:00
parent 9319a8a810
commit aa2b78ef8b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/rnrs/programs-6.ss
View File

@ -1,7 +1,9 @@
#lang scheme/base
(require scheme/mpair)
(provide command-line exit)
(define (command-line)
(cons (path->string (find-system-path 'run-file))
(vector->list (current-command-line-arguments))))
(mcons (path->string (find-system-path 'run-file))
(list->mlist (vector->list (current-command-line-arguments)))))