Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-03 11:16: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)
(set! compile? #f)) ;; Debug, do not run GCC
(cond
((< (length args) 1)
(display "cyclone: no input file")
(newline))
((or (member "-h" args)
(member "--help" args))
(display "
@ -387,6 +384,10 @@
(display *version-banner*))
((member "--autogen" args)
(autogen "autogen.out"))
((or (< (length args) 1)
(null? non-opts))
(display "cyclone: no input file")
(newline))
(else
(run-compiler non-opts compile?))))