Remove variable-set! clause from compile-fun

* module/language/cps/compile-bytecode.scm (compile-fun): Remove
  vestigial `variable-set!' clause.

diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm
index c016e11..ce4e477 100644 (file)
--- a/module/language/cps/compile-bytecode.scm
+++ b/module/language/cps/compile-bytecode.scm
@@ -329,8 +329,6 @@
         (($ $primcall 'vector-set!/immediate (vector index value))
          (emit-vector-set!/immediate asm (slot vector) (constant index)
                                      (slot value)))
-        (($ $primcall 'variable-set! (var val))
-         (emit-box-set! asm (slot var) (slot val)))
         (($ $primcall 'set-car! (pair value))
          (emit-set-car! asm (slot pair) (slot value)))
         (($ $primcall 'set-cdr! (pair value))