From 4248ef107e304588d49616e8f190935ce27dd45f Mon Sep 17 00:00:00 2001
From: Arthur Maciel <arthurmaciel@gmail.com>
Date: Tue, 26 May 2020 22:22:53 -0300
Subject: [PATCH] Improved "-p" flag to read/evalute all sexp passed

---
 icyc.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/icyc.scm b/icyc.scm
index b9724a27..2251b264 100644
--- a/icyc.scm
+++ b/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)