diff options
-rw-r--r-- | module/language/tree-il/primitives.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/module/language/tree-il/primitives.scm b/module/language/tree-il/primitives.scm index 48cb03c04..4f8364224 100644 --- a/module/language/tree-il/primitives.scm +++ b/module/language/tree-il/primitives.scm @@ -61,6 +61,8 @@ variable-bound? ;; args of variable-set are switched; it needs special help + fluid-ref fluid-set! + struct? struct-vtable make-struct struct-ref struct-set! bytevector-u8-ref bytevector-u8-set! @@ -421,6 +423,18 @@ (make-lexical-ref #f 'post POST))))))) (hashq-set! *primitive-expand-table* + 'fluid-ref + (case-lambda + ((src fluid) (make-dynref src fluid)) + (else #f))) + +(hashq-set! *primitive-expand-table* + 'fluid-set! + (case-lambda + ((src fluid exp) (make-dynset src fluid exp)) + (else #f))) + +(hashq-set! *primitive-expand-table* 'prompt (case-lambda ((src tag thunk handler) |