diff options
Diffstat (limited to 'src/interp/c-util.boot')
-rw-r--r-- | src/interp/c-util.boot | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index 70675bf0..0558402a 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1732,7 +1732,10 @@ lookupDefiningFunction(op,sig,dc) == -- such as AN ~> IAN ~> EXPR INT ~> AN that prevents -- us from full evaluation. args = nil and symbolMember?(ctor,$SystemInlinableConstructorNames) => - compiledLookup(op,sig,dc) + env := compiledLookup(op,sig,dc) or return nil + env is ['newGoGet,:.] => nil -- FIXME: Follow the link! + env is ['makeSpadConstant,fun,:.] => BPINAME fun + BPINAME first env -- 1.2. Don't look into defaulting package isDefaultPackageName ctor => nil infovec := property(ctor,'infovec) or return nil |