fix main.scm

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