From aa2b78ef8b73ca82ffb3ace72e84f74bff75f92a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 7 Mar 2008 13:22:14 +0000 Subject: [PATCH] r6rs command-line fix svn: r8916 --- collects/rnrs/programs-6.ss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/rnrs/programs-6.ss b/collects/rnrs/programs-6.ss index d6942d42e9..fbc2554043 100644 --- a/collects/rnrs/programs-6.ss +++ b/collects/rnrs/programs-6.ss @@ -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)))))