mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +02:00
Code Activity

* tests/interp.test: New file.

Browse source
This commit is contained in:
Jim Blandy 1999-06-19 16:28:11 +00:00
parent 98947fdca4
commit 26dd899df2
1 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
test-suite/tests/interp.test Normal file
View file

@ -0,0 +1,16 @@
;;;; 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)))