HCoop
/
bpt
/
guile.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Merge commit '40a723a92236fe4e58feb89057b4182b1fc76810'
[bpt/guile.git]
/
test-suite
/
vm
/
t-catch.scm
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