Improved "-p" flag to read/evalute all sexp passed

This commit is contained in:
Arthur Maciel 2020-05-26 22:22:53 -03:00
parent 972b896e2b
commit 4248ef107e

View file

@ -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)