diff options
Diffstat (limited to 'test-suite/tests/compiler.test')
-rw-r--r-- | test-suite/tests/compiler.test | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/test-suite/tests/compiler.test b/test-suite/tests/compiler.test index 778a8e1ea..02f2a54c7 100644 --- a/test-suite/tests/compiler.test +++ b/test-suite/tests/compiler.test @@ -195,4 +195,10 @@ (equal? ((compile `(lambda () (list ,@(map (lambda (n) `(identity ,n)) (iota 300)))))) - (iota 300)))) + (iota 300))) + + (pass-if "0 arguments with vector of 300 elements" + (equal? ((compile `(lambda () + (vector ,@(map (lambda (n) `(identity ,n)) + (iota 300)))))) + (list->vector (iota 300))))) |