scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed argv so that (argv 0) works.

This commit is contained in:
shivers 1998-05-02 17:25:56 +00:00
parent b24c0182c8
commit 21ac090065
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/scsh.scm
View File

@ -622,7 +622,7 @@
(arg* arglist n))) (arg* arglist n)))
(define (argv n . maybe-default) (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 '())) (define (command-line) (append %command-line '()))