瀏覽代碼

Remove debugging code

Lily Carpenter 8 年之前
父節點
當前提交
054421f901
共有 1 個文件被更改,包括 1 次插入2 次删除
  1. 1 2
      src/internal.lisp

+ 1 - 2
src/internal.lisp

@@ -58,8 +58,7 @@
58 58
            (setf (game-state-cursor-x state) (mod (game-state-cursor-x state) width))
59 59
            (setf (game-state-cursor-y state) (mod (game-state-cursor-y state) height)))
60 60
          (move-cursor *standard-window* (game-state-cursor-x state) (game-state-cursor-y state))
61
-       until (game-state-quit? state)))
62
-  (print (game-state-history state)))
61
+       until (game-state-quit? state))))
63 62
 
64 63
 (defun start-dev (state)
65 64
   (ql:quickload :slynk)