Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-03 19:26:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Prevent segfault if invalid args are given.

Browse source
This commit is contained in:
Justin Ethier 2016-06-30 21:44:03 -04:00
parent 8a89678f6c
commit a6c3e4818a
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
cyclone.scm
View file

@ -365,9 +365,6 @@
(if (member "-d" args) (if (member "-d" args)
(set! compile? #f)) ;; Debug, do not run GCC (set! compile? #f)) ;; Debug, do not run GCC
(cond (cond
((< (length args) 1)
(display "cyclone: no input file")
(newline))
((or (member "-h" args) ((or (member "-h" args)
(member "--help" args)) (member "--help" args))
(display " (display "
@ -387,6 +384,10 @@
(display *version-banner*)) (display *version-banner*))
((member "--autogen" args) ((member "--autogen" args)
(autogen "autogen.out")) (autogen "autogen.out"))
((or (< (length args) 1)
(null? non-opts))
(display "cyclone: no input file")
(newline))
(else (else
(run-compiler non-opts compile?)))) (run-compiler non-opts compile?))))