diff options
Diffstat (limited to 'module/language/cps/compile-bytecode.scm')
-rw-r--r-- | module/language/cps/compile-bytecode.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm index fc4b21a43..e958b4cf8 100644 --- a/module/language/cps/compile-bytecode.scm +++ b/module/language/cps/compile-bytecode.scm @@ -268,6 +268,8 @@ (emit-free-ref asm dst (slot closure) (constant idx))) (($ $primcall 'vector-ref (vector index)) (emit-vector-ref asm dst (slot vector) (slot index))) + (($ $primcall 'make-vector (length init)) + (emit-make-vector asm dst (slot length) (slot init))) (($ $primcall 'make-vector/immediate (length init)) (emit-make-vector/immediate asm dst (constant length) (slot init))) (($ $primcall 'vector-ref/immediate (vector index)) |