diff options
| author | Andy Wingo <wingo@pobox.com> | 2020-05-11 09:46:40 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2020-05-11 09:46:40 +0200 |
| commit | d6b6392cfbb4bad37e33745c6c5c50c674f8d773 (patch) | |
| tree | 20b558880bc8f6e780813055a3c68f9c5fdbfe42 /libguile/intrinsics.c | |
| parent | 04e3cece45ec72283ec2a8519c7a73f497896fd1 (diff) | |
| download | guile-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 'libguile/intrinsics.c')
| -rw-r--r-- | libguile/intrinsics.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/intrinsics.c b/libguile/intrinsics.c index ba25dcb0f..d23731e3c 100644 --- a/libguile/intrinsics.c +++ b/libguile/intrinsics.c @@ -334,7 +334,7 @@ resolve_module (SCM name, uint8_t public_p) } static SCM -lookup (SCM module, SCM name) +module_variable (SCM module, SCM name) { /* If MODULE was captured before modules were booted, use the root module. Not so nice, but hey... */ @@ -574,7 +574,7 @@ scm_bootstrap_intrinsics (void) scm_vm_intrinsics.less_p = less_p; scm_vm_intrinsics.numerically_equal_p = numerically_equal_p; scm_vm_intrinsics.resolve_module = resolve_module; - scm_vm_intrinsics.lookup = lookup; + scm_vm_intrinsics.module_variable = module_variable; scm_vm_intrinsics.define_x = scm_module_ensure_local_variable; scm_vm_intrinsics.throw_ = throw_; scm_vm_intrinsics.throw_with_value = throw_with_value; |