From 3c1330430d88e67fce6b6c69a261beb6f93868ea Mon Sep 17 00:00:00 2001
From: grue <grue@mail.ru>
Date: Tue, 21 Feb 2006 13:38:34 +0000
Subject: [PATCH] make *repl-mode* configurable option

darcs-hash:27575611b5d16e2b661a007b2c0260410214205a
---
 iflib.lisp | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

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