summaryrefslogtreecommitdiff
path: root/test-suite/tests/interp.test
diff options
context:
space:
mode:
authorcvs2svn <admin@example.com>1999-09-01 02:52:28 +0000
committercvs2svn <admin@example.com>1999-09-01 02:52:28 +0000
commitbc3038d6c85aeb23ca35e5758234573c86aed80d (patch)
tree9537cf49965939b1203e075f8c64aa953d10c486 /test-suite/tests/interp.test
parentbe881b4688376f98b5eaa5c0bfb2cded1cde06b6 (diff)
downloadguile-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.test16
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)))