mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 00:10:21 +02:00
Code Activity

(ice-9 control) fixes

Browse source 
* 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
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
module/ice-9/control.scm
View file

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