label continuations

2020-10-04 18:22:37 -06:00
parent 2d12f116b1
commit 581e7c3a19
1 changed files with 2 additions and 2 deletions
--- a/src/hank/hanklib.hiss
+++ b/src/hank/hanklib.hiss
@@ -12,7 +12,7 @@
                (apply + 
                    (map parts eval-output-part)))
        (if direct
-                (call/cc 
+                (call/cc "Continuation of output"
                    (lambda (cc) 
                        (*handle-output*
                            text
@@ -45,7 +45,7 @@
        id))

 (defun get-player-choice-index (choice-texts)
-    (call/cc
+    (call/cc "Continuation of get-player-choice-index"
        (lambda (cc)
                (*handle-choices* choice-texts cc))))