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

cs: unbreak racket with no command-line arguments

Browse Source
This commit is contained in:
Matthew Flatt 2019-12-26 07:04:35 -06:00
parent e6e28fa8b7
commit c6e9d6cfd4
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/src/cs/main.sps
View File

@ -322,11 +322,13 @@
[else
(set! remaining-command-line-arguments (vector->immutable-vector
(list->vector args)))
(no-init! saw)
(when (and (null? args) (not (saw? saw 'non-config)))
(cond
[(and (null? args) (not (saw? saw 'non-config)))
(set! repl? #t)
(when text-repl?
(set! version? #t)))]))
(set! version? #t))]
[else
(no-init! saw)])]))
;; Dispatch on first argument:
(if (null? args)
(finish args saw)