From 21ac090065f8304249b0edfd8e98b5a66ea00c55 Mon Sep 17 00:00:00 2001 From: shivers Date: Sat, 2 May 1998 17:25:56 +0000 Subject: [PATCH] Fixed argv so that (argv 0) works. --- scsh/scsh.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scsh/scsh.scm b/scsh/scsh.scm index 05e5045..e2bcebb 100644 --- a/scsh/scsh.scm +++ b/scsh/scsh.scm @@ -622,7 +622,7 @@ (arg* arglist n))) (define (argv n . maybe-default) - (apply arg (cdr %command-line) n maybe-default)) + (apply arg %command-line (+ n 1) maybe-default)) (define (command-line) (append %command-line '()))