diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm index ec93eaa5c..59784921a 100644 --- a/module/language/cps/compile-bytecode.scm +++ b/module/language/cps/compile-bytecode.scm @@ -479,6 +479,8 @@ (#('symbol? #f (a)) (unary emit-symbol? a)) (#('variable? #f (a)) (unary emit-variable? a)) (#('vector? #f (a)) (unary emit-vector? a)) + (#('mutable-vector? #f (a)) (unary emit-mutable-vector? a)) + (#('immutable-vector? #f (a)) (unary emit-immutable-vector? a)) (#('string? #f (a)) (unary emit-string? a)) (#('heap-number? #f (a)) (unary emit-heap-number? a)) (#('hash-table? #f (a)) (unary emit-hash-table? a)) diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm index 83d5b111b..46c0ed3de 100644 --- a/module/system/vm/assembler.scm +++ b/module/system/vm/assembler.scm @@ -113,6 +113,8 @@ emit-symbol? emit-variable? emit-vector? + emit-mutable-vector? + emit-immutable-vector? emit-weak-vector? emit-string? emit-heap-number?