make-prompt-tag is an effect-free primitive

* module/language/tree-il/primitives.scm
  (*interesting-primitive-names*, *effect-free-primitives*): Recognize
  make-prompt-tag as interesting and effect-free.

diff --git a/module/language/tree-il/primitives.scm b/module/language/tree-il/primitives.scm
index eae68de..6fc0b3c 100644 (file)
--- a/module/language/tree-il/primitives.scm
+++ b/module/language/tree-il/primitives.scm
@@ -64,6 +64,7 @@
     fluid-ref fluid-set!
 
     @prompt call-with-prompt @abort abort-to-prompt
+    make-prompt-tag
 
     struct? struct-vtable make-struct struct-ref struct-set!