prompt as part of guile's primitive language

[bpt/guile.git] / module / ice-9 / eval.scm

diff --git a/module/ice-9/eval.scm b/module/ice-9/eval.scm
index 0e02cbc..f7cb6ce 100644 (file)
--- a/module/ice-9/eval.scm
+++ b/module/ice-9/eval.scm
@@ -309,6 +309,11 @@
                 (vals (map (lambda (x) (eval x env)) vals)))
            (with-fluids* fluids vals (lambda () (eval exp env)))))
         
+        (('prompt (tag exp . handler))
+         (@prompt (eval tag env)
+                  (eval exp env)
+                  (eval handler env)))
+        
         (('call/cc proc)
          (call/cc (eval proc env)))