summaryrefslogtreecommitdiff
path: root/test-suite/tests/compiler.test
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2014-04-21 21:48:39 +0200
committerAndy Wingo <wingo@pobox.com>2014-04-21 22:47:33 +0200
commitd38ca16e2cd444418b284dc15fc4be8402004acc (patch)
treef80ad26d207944b2fcd9b0998c42644a1492dd41 /test-suite/tests/compiler.test
parentd4b3a36d4202d7e891a3642b9de12a8800f57b38 (diff)
downloadguile-d38ca16e2cd444418b284dc15fc4be8402004acc.tar.gz
Add make-vector opcode
* libguile/vm-engine.c (make-vector): New opcode. * module/language/cps/compile-bytecode.scm (compile-fun): * module/system/vm/assembler.scm (system): Support the new opcode. (*bytecode-minor-version*): Bump. * libguile/_scm.h (SCM_OBJCODE_MINOR_VERSION): Bump. * test-suite/tests/compiler.test ("limits"): Add vector test.
Diffstat (limited to 'test-suite/tests/compiler.test')
-rw-r--r--test-suite/tests/compiler.test8
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)))))