Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 05:06:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

removing set!

Browse source
This commit is contained in:
Alex Shinn 2013-06-20 23:01:27 +09:00
parent 03fcf059c9
commit b4ea0a437f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tools/chibi-ffi
View file

@ -1736,8 +1736,8 @@
;; main ;; main
(let ((args (command-line))) (let ((args (command-line)))
(if (not (null? args)) (set! args (cdr args))) (let* ((args (if (pair? args) (cdr args) args))
(let* ((compile? (and (pair? args) (member (car args) '("-c" "--compile")))) (compile? (and (pair? args) (member (car args) '("-c" "--compile"))))
(args (if compile? (cdr args) args)) (args (if compile? (cdr args) args))
(cflags (if (and (pair? args) (member (car args) '("-f" "--flags"))) (cflags (if (and (pair? args) (member (car args) '("-f" "--flags")))
(string-split (cadr args) #\space) (string-split (cadr args) #\space)