diff options
Diffstat (limited to 'module/language/cps/compile-bytecode.scm')
-rw-r--r-- | module/language/cps/compile-bytecode.scm | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm index fdf9953a5..fddf2fdd2 100644 --- a/module/language/cps/compile-bytecode.scm +++ b/module/language/cps/compile-bytecode.scm @@ -143,10 +143,6 @@ (emit-current-module asm (from-sp dst))) (($ $primcall 'current-thread) (emit-current-thread asm (from-sp dst))) - (($ $primcall 'cached-toplevel-box (scope name bound?)) - (emit-cached-toplevel-box asm (from-sp dst) scope name bound?)) - (($ $primcall 'cached-module-box (mod name public? bound?) ()) - (emit-cached-module-box asm (from-sp dst) mod name public? bound?)) (($ $primcall 'define! #f (sym)) (emit-define! asm (from-sp dst) (from-sp (slot sym)))) (($ $primcall 'resolve (bound?) (name)) @@ -285,8 +281,6 @@ (define (compile-effect label exp k) (match exp (($ $values ()) #f) - (($ $primcall 'cache-current-module! (scope) (mod)) - (emit-cache-current-module! asm (from-sp (slot mod)) scope)) (($ $primcall 'cache-set! key (val)) (emit-cache-set! asm key (from-sp (slot val)))) (($ $primcall 'scm-set! annotation (obj idx val)) |