summaryrefslogtreecommitdiff
path: root/module/language/tree-il/peval.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/tree-il/peval.scm')
-rw-r--r--module/language/tree-il/peval.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/module/language/tree-il/peval.scm b/module/language/tree-il/peval.scm
index baf4f5847..05a2d7f05 100644
--- a/module/language/tree-il/peval.scm
+++ b/module/language/tree-il/peval.scm
@@ -581,9 +581,10 @@ top-level bindings from ENV and return the resulting expression."
;; todo: further optimize commutative primitives
(catch #t
(lambda ()
+ (define mod (resolve-interface (primitive-module name)))
(call-with-values
(lambda ()
- (apply (module-ref the-scm-module name) args))
+ (apply (module-ref mod name) args))
(lambda results
(values #t results))))
(lambda _