HCoop
/
bpt
/
guile.git
/ blame
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blob
|
blame
(incremental) |
history
|
HEAD
Merge remote-tracking branch 'origin/stable-2.0'
[bpt/guile.git]
/
test-suite
/
vm
/
t-catch.scm
Commit
Line
Data
7e4760e4
AW
1
;; Test that nonlocal exits of the VM work.
2
3
(begin
4
(define (foo thunk)
5
(catch #t thunk (lambda args args)))
6
(foo
7
(lambda ()
8
(let ((a 'one))
9
(1+ a)))))
10