[bpt/guile.git] / test-suite / vm / t-catch.scm

;; Test that nonlocal exits of the VM work.

(begin
  (define (foo thunk)
    (catch #t thunk (lambda args args)))
  (foo
   (lambda ()
     (let ((a 'one))
       (1+ a)))))
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