summaryrefslogtreecommitdiff
path: root/module/language/cps/compile-bytecode.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2020-05-11 09:46:40 +0200
committerAndy Wingo <wingo@pobox.com>2020-05-11 09:46:40 +0200
commitd6b6392cfbb4bad37e33745c6c5c50c674f8d773 (patch)
tree20b558880bc8f6e780813055a3c68f9c5fdbfe42 /module/language/cps/compile-bytecode.scm
parent04e3cece45ec72283ec2a8519c7a73f497896fd1 (diff)
downloadguile-d6b6392cfbb4bad37e33745c6c5c50c674f8d773.tar.gz
Rename "lookup" intrinsic to "module-variable"
It can return #f, unlike scm_(module_)?lookup. * libguile/intrinsics.h (SCM_FOR_ALL_VM_INTRINSICS): * libguile/intrinsics.c (module_variable, scm_bootstrap_intrinsics): Rename. * module/language/cps/compile-bytecode.scm (compile-function): * module/language/cps/effects-analysis.scm (current-module): * module/language/cps/reify-primitives.scm (reify-lookup) (compute-known-primitives): * module/language/tree-il/compile-bytecode.scm (emit-cached-module-box) (emit-cached-toplevel-box, emit-toplevel-box): * module/language/tree-il/compile-cps.scm (toplevel-box): * module/system/vm/assembler.scm (module-variable): Adapt users.
Diffstat (limited to 'module/language/cps/compile-bytecode.scm')
-rw-r--r--module/language/cps/compile-bytecode.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm
index 48e6ba1fa..c11ba318b 100644
--- a/module/language/cps/compile-bytecode.scm
+++ b/module/language/cps/compile-bytecode.scm
@@ -186,8 +186,9 @@
(emit-cache-ref asm (from-sp dst) key))
(($ $primcall 'resolve-module public? (name))
(emit-resolve-module asm (from-sp dst) (from-sp (slot name)) public?))
- (($ $primcall 'lookup #f (mod name))
- (emit-lookup asm (from-sp dst) (from-sp (slot mod)) (from-sp (slot name))))
+ (($ $primcall 'module-variable #f (mod name))
+ (emit-module-variable asm (from-sp dst) (from-sp (slot mod))
+ (from-sp (slot name))))
(($ $primcall 'add/immediate y (x))
(emit-add/immediate asm (from-sp dst) (from-sp (slot x)) y))
(($ $primcall 'sub/immediate y (x))