0.1.0 Release - Engine - Wolf sheep works

[clnl] / src / main / cli.lisp

diff --git a/src/main/cli.lisp b/src/main/cli.lisp
index fe895e290ebf2bc735db8b4a253278bd612198d5..4dcc8f064a1f0faeb3d229625f2104932fec3e1c 100644 (file)
--- a/src/main/cli.lisp
+++ b/src/main/cli.lisp
@@ -23,7 +23,6 @@ DESCRIPTION:
  (loop
   :for str := (cffi:with-foreign-pointer-as-string (str 255) (wgetnstr *cli* str 255))
   :while str
-  :while (and (string/= str "q") (string/= str "Q"))
   :do (print-command-and-response str (execute str)))
  (endwin)
  (sb-ext:exit :abort t))
@@ -32,7 +31,7 @@ DESCRIPTION:
  (handler-case
   (with-output-to-string (*standard-output*)
    (clnl:run-commands str))
-  (error (e) (format nil "Ok, something went wrong: ~A" e))))
+  (error (e) (format nil "Ok, something went wrong: ~A~%Try :help" e))))
 
 ; for ui, we need to do at a minimum:
 ; - cli, first pass, read things in, bottom of the screen,
@@ -85,7 +84,7 @@ DESCRIPTION:
   implementation of NetLogo.
   
   You can enter in various netlogo commands below,
-  or use q to quit the program.
+  or use :q to quit the program.
   
   See http://github.com/frankduncan/clnl for more
   information about CLNL and to keep apprised of