fluid-ref / fluid-set! compile to dynref/dynset

* module/language/tree-il/primitives.scm: Resolve fluid-ref and
  fluid-set! as primitives, and thence to dynref/dynset.

diff --git a/module/language/tree-il/primitives.scm b/module/language/tree-il/primitives.scm
index 48cb03c..4f83642 100644 (file)
--- 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!
@@ -420,6 +422,18 @@
                    expr
                    (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