1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-27 15:30:19 +02:00

(ice-9 control) fixes

* module/ice-9/control.scm (%): Fix to allow tagged and default-tagged
  prompts.
  (abort): Re-export.
This commit is contained in:
Andy Wingo 2010-02-24 23:20:38 +01:00
parent 211fcbc8cd
commit c8df99730a

View file

@ -19,7 +19,7 @@
;;; Code:
(define-module (ice-9 control)
#:re-export (prompt)
#:re-export (prompt abort)
#:export (% control))
;; the same as abort.
@ -29,4 +29,10 @@
(define-syntax %
(syntax-rules ()
((_ expr handler)
(prompt (lambda () expr) handler))))
(prompt (fluid-ref %default-prompt-tag)
(lambda () expr)
handler))
((_ tag expr handler)
(prompt tag
(lambda () expr)
handler))))