projects
/
lifp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d6621d9
)
make *repl-mode* configurable option
author
grue
<grue@mail.ru>
Tue, 21 Feb 2006 13:38:34 +0000
(13:38 +0000)
committer
grue
<grue@mail.ru>
Tue, 21 Feb 2006 13:38:34 +0000
(13:38 +0000)
darcs-hash:
27575611b5d16e2b661a007b2c0260410214205a
iflib.lisp
patch
|
blob
|
history
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
(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
"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
(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
(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
\r
;;SECTION 9: Other stuff
\r
\r