From 786cf9d8943c3d57ab95cc6aa34a208ef61233bc Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Mon, 28 Jul 2014 11:44:19 +0900
Subject: [PATCH] fix main.scm

---
 tools/main.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/main.scm b/tools/main.scm
index 0fa5bc0f..09354973 100644
--- a/tools/main.scm
+++ b/tools/main.scm
@@ -77,8 +77,8 @@
       (parameterize
           ((current-input-port
             (if program
-                (current-input-port)
-                (open-input-string program))))
+                (open-input-string program)
+                (current-input-port))))
         (main-loop))))
 
   (export repl))