mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-18 21:29:18 +02:00
Improved "-p" flag to read/evalute all sexp passed
This commit is contained in:
parent
972b896e2b
commit
4248ef107e
1 changed files with 1 additions and 1 deletions
2
icyc.scm
2
icyc.scm
|
@ -94,7 +94,7 @@ Options:
|
|||
(else
|
||||
(let* ((sexp-str (apply string-append sexp-strs))
|
||||
(in-port (open-input-string sexp-str))
|
||||
(sexp (read in-port)))
|
||||
(sexp (cons 'begin (read-all in-port)))
|
||||
(display
|
||||
(eval sexp))
|
||||
(newline)
|
||||
|
|
Loading…
Add table
Reference in a new issue