diff options
author | Andy Wingo <wingo@pobox.com> | 2014-04-21 21:48:39 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-04-21 22:47:33 +0200 |
commit | d38ca16e2cd444418b284dc15fc4be8402004acc (patch) | |
tree | f80ad26d207944b2fcd9b0998c42644a1492dd41 /test-suite/tests/compiler.test | |
parent | d4b3a36d4202d7e891a3642b9de12a8800f57b38 (diff) | |
download | guile-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.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))))) |