diff options
Diffstat (limited to 'module/language/tree-il/peval.scm')
-rw-r--r-- | module/language/tree-il/peval.scm | 3 |
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 _ |