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:
parent
211fcbc8cd
commit
c8df99730a
1 changed files with 8 additions and 2 deletions
|
@ -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))))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue