diff options
Diffstat (limited to 'module/language/tree-il/optimize.scm')
-rw-r--r-- | module/language/tree-il/optimize.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/module/language/tree-il/optimize.scm b/module/language/tree-il/optimize.scm index 14460ebab..e4e4996fc 100644 --- a/module/language/tree-il/optimize.scm +++ b/module/language/tree-il/optimize.scm @@ -79,7 +79,9 @@ (module-variable mod name)) (make-primitive-ref src name))) ((<module-ref> mod name public?) - (let ((m (if public? (resolve-interface mod) (resolve-module mod)))) + ;; for the moment, we're disabling primitive resolution for + ;; public refs because resolve-interface can raise errors. + (let ((m (and (not public?) (resolve-module mod)))) (and m (hashq-ref *interesting-primitive-vars* (module-variable m name)) (make-primitive-ref src name)))) |