diff options
Diffstat (limited to 'test-suite/tests/peval.test')
-rw-r--r-- | test-suite/tests/peval.test | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/test-suite/tests/peval.test b/test-suite/tests/peval.test index ecc5dd187..f409e943a 100644 --- a/test-suite/tests/peval.test +++ b/test-suite/tests/peval.test @@ -1236,4 +1236,9 @@ (call-with-prompt t (lambda () (abort-to-prompt t 1 2 3)) (lambda (k x y z) (list x y z)))) - (primcall list (const 1) (const 2) (const 3)))) + (primcall list (const 1) (const 2) (const 3))) + + (pass-if-peval + (call-with-values foo (lambda (x) (bar x))) + (let (x) (_) ((call (toplevel foo))) + (call (toplevel bar) (lexical x _))))) |