rename debug-print

src/hank/Story.hx

@@ -41,7 +41,7 @@ class Story {
         interp.importFunction(this, hissRead, "hiss-read");
         interp.importFunction(reader, reader.readDelimitedList, "hiss-read-delimited-list", List([Int(3)]) /* keep blankELements wrapped */, ["terminator", "delimiters", "start", "stream"]);
 
-        interp.importFunction(this, debugPrint, "debug-print", T);
+        interp.importFunction(this, debugPrint, "print", T);
 
         interp.load("hanklib.hiss");
     }

src/hank/TestStoryExamples.hx

@@ -14,6 +14,7 @@ class TestStoryExamples {
             transcripts = transcripts.filter((file) -> file.endsWith(".hlog"));
             
             for (transcript in transcripts) {
+                Sys.println(example + " " + transcript);
                 new Story("examples/" + example + "/main.hank", new StoryTester("examples/" + example + "/" + transcript)).run();
             }
         }

src/hank/hanklib.hiss

@@ -39,7 +39,7 @@
     `(let (c (make-choice ,@args)
             label (choice-label c)
             id (length *choices*))
-        (debug-print c)
+        (print c)
         (push! *choices* c)
         (when label (dict-set! *labeled-choices* label c))
         id))
@@ -59,7 +59,7 @@
                 (for o choice-outputs (eval o)))
         (enable-continuations)
         (begin
-            (setlocal player-choice-index (debug-print (get-player-choice-index choice-texts)))
+            (setlocal player-choice-index (print (get-player-choice-index choice-texts)))
             (disable-continuations)
 
             (let (player-choice

src/hank/reader-macros.hiss

@@ -3,7 +3,7 @@
                 (hiss-read-delimited-list "\n" ["->"] t nil start stream)
             divert-calls
                 (for target targets 'divert))
-        (debug-print (cons 
+        (print (cons 
             'begin 
             (case (last targets)
                 // tunnel statement:
@@ -30,7 +30,7 @@
                 (read-all (first (HStream:take-until stream ["=="] nil nil t))))
     
         // Define the knot's function at READ-TIME
-        (eval (debug-print `(defun ,knot-name () ,@knot-body (quit))))
+        (eval (print `(defun ,knot-name () ,@knot-body (quit))))
         nil))
 
 (defun read-choice (start stream)