diff options
author | cvs2svn <admin@example.com> | 1999-09-01 02:52:28 +0000 |
---|---|---|
committer | cvs2svn <admin@example.com> | 1999-09-01 02:52:28 +0000 |
commit | bc3038d6c85aeb23ca35e5758234573c86aed80d (patch) | |
tree | 9537cf49965939b1203e075f8c64aa953d10c486 /test-suite/tests/interp.test | |
parent | be881b4688376f98b5eaa5c0bfb2cded1cde06b6 (diff) | |
download | guile-jimb_mb_branchpoint_1.tar.gz |
This commit was manufactured by cvs2svn to create tagjimb_mb_branchpoint_1
'jimb_mb_branchpoint_1'.
Diffstat (limited to 'test-suite/tests/interp.test')
-rw-r--r-- | test-suite/tests/interp.test | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/test-suite/tests/interp.test b/test-suite/tests/interp.test deleted file mode 100644 index 18218d6d3..000000000 --- a/test-suite/tests/interp.test +++ /dev/null @@ -1,16 +0,0 @@ -;;;; 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))) |