prompt as part of guile's primitive language

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

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 098ad51..6dc2b68 100644 (file)
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -401,6 +401,10 @@
 (define (and=> value procedure) (and value (procedure value)))
 (define call/cc call-with-current-continuation)
 
+;;; Delimited continuations
+(define (prompt tag thunk handler)
+  (@prompt tag (thunk) handler))
+
 ;;; apply-to-args is functionally redundant with apply and, worse,
 ;;; is less general than apply since it only takes two arguments.
 ;;;