mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-13 17:20:21 +02:00
16 lines
447 B
Scheme
16 lines
447 B
Scheme
;;;; interp.test --- tests for bugs in the Guile interpreter -*- scheme -*-
|
|
;;;; We'll put a copyright on this as soon as it's big enough to copyright.
|
|
|
|
(pass-if "Internal defines 1"
|
|
(letrec ((foo (lambda (arg)
|
|
(or arg (and (procedure? foo)
|
|
(foo 99))))))
|
|
(define bar (foo #f))
|
|
(foo #f)))
|
|
|
|
(pass-if "Internal defines 2"
|
|
(letrec ((foo 77)
|
|
(bar #f)
|
|
(retfoo (lambda () foo)))
|
|
(define baz (retfoo))
|
|
(retfoo)))
|