define! is an interesting primitive

* module/language/tree-il/primitives.scm (*interesting-primitive-names*):
  Add define!.

diff --git a/module/language/tree-il/primitives.scm b/module/language/tree-il/primitives.scm
index b56e54c..46bc4eb 100644 (file)
--- a/module/language/tree-il/primitives.scm
+++ b/module/language/tree-il/primitives.scm
@@ -77,7 +77,7 @@
     variable? variable-ref variable-set!
     variable-bound?
 
-    current-module
+    current-module define!
 
     fluid-ref fluid-set! with-fluid*