summaryrefslogtreecommitdiff
path: root/module/system/vm/assembler.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2020-05-11 10:00:30 +0200
committerAndy Wingo <wingo@pobox.com>2020-05-11 10:22:34 +0200
commit4274d615cc442bd4dc3696ebfd57fd0c6ac3dd58 (patch)
tree0e07be18c601fa6ad61e53b32376171c69afd106 /module/system/vm/assembler.scm
parentd6b6392cfbb4bad37e33745c6c5c50c674f8d773 (diff)
downloadguile-4274d615cc442bd4dc3696ebfd57fd0c6ac3dd58.tar.gz
Add new lookup, lookup-bound intrinsics
* libguile/intrinsics.h (SCM_FOR_ALL_VM_INTRINSICS): * libguile/intrinsics.c (lookup, lookup_bound): * libguile/intrinsics.c (scm_bootstrap_intrinsics): New intrinsics. * module/language/cps/reify-primitives.scm (reify-primitives): * module/language/cps/effects-analysis.scm (current-module): * module/language/cps/compile-bytecode.scm (compile-function): * module/system/vm/assembler.scm: Add compiler support.
Diffstat (limited to 'module/system/vm/assembler.scm')
-rw-r--r--module/system/vm/assembler.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index b9b313f9d..7849e5533 100644
--- a/module/system/vm/assembler.scm
+++ b/module/system/vm/assembler.scm
@@ -257,6 +257,8 @@
emit-rsh/immediate
emit-resolve-module
emit-module-variable
+ emit-lookup
+ emit-lookup-bound
emit-define!
emit-current-module
@@ -1494,6 +1496,8 @@ returned instead."
(define-scm<-scm-uimm-intrinsic rsh/immediate)
(define-scm<-scm-bool-intrinsic resolve-module)
(define-scm<-scm-scm-intrinsic module-variable)
+(define-scm<-scm-scm-intrinsic lookup)
+(define-scm<-scm-scm-intrinsic lookup-bound)
(define-scm<-scm-scm-intrinsic define!)
(define-scm<-thread-intrinsic current-module)