fix main.scm

2014-07-28 11:44:19 +09:00
parent fc388f8d46
commit 786cf9d894
1 changed files with 2 additions and 2 deletions
@@ -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))