make *repl-mode* configurable option

[lifp.git] / iflib.lisp

diff --git a/iflib.lisp b/iflib.lisp
index 1a1059d427b4ecf4b0ecea96e5de3da7251f9e6d..39f4d507fba3e2b4064417124cc01a289d74af05 100644 (file)
--- a/iflib.lisp
+++ b/iflib.lisp
@@ -644,9 +644,9 @@
   (load file)\r
   (print-message "Module is successfully loaded."))\r
 \r
-(defun test-seq (&optional (rm nil))\r
+(defun test-seq (&optional (rm *repl-mode*))\r
   "Test sequence emulating interactive fiction interpreter"\r
-  (load-cfg "iflib.cfg")\r
+  ;;(load-cfg "iflib.cfg")\r
   (setf *score* 0 \r
        *turns* 0\r
        *gamestate* 0)\r
@@ -663,8 +663,9 @@
 (defun interactive-start ()\r
   "Function intended to be used by user"\r
   (load-cfg "iflib.cfg")\r
-  (run-console #'seq #'lib :interactive t)\r
-  (when *hard-quit* (quit-lisp)))\r
+  (unless *repl-mode*\r
+    (run-console #'seq #'lib :interactive t)\r
+    (when *hard-quit* (quit-lisp))))\r
 \r
 ;;SECTION 9: Other stuff\r
 \r