diff options
Diffstat (limited to 'src/interp/nrunfast.boot')
-rw-r--r-- | src/interp/nrunfast.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/nrunfast.boot b/src/interp/nrunfast.boot index 40df2592..fe17142e 100644 --- a/src/interp/nrunfast.boot +++ b/src/interp/nrunfast.boot @@ -325,8 +325,8 @@ newLookupInCategories(op,sig,dom,dollar) == IDENTP entry => cat := vectorRef(catVec,i) packageForm := nil - if not GETL(entry,'LOADED) then loadLib entry - infovec := GETL(entry,'infovec) + if not property(entry,'LOADED) then loadLib entry + infovec := property(entry,'infovec) success := --vector? infovec => ----new world true => ----new world @@ -404,8 +404,8 @@ newLookupInCategories1(op,sig,dom,dollar) == IDENTP entry => cat := first node packageForm := nil - if not GETL(entry,'LOADED) then loadLib entry - infovec := GETL(entry,'infovec) + if not property(entry,'LOADED) then loadLib entry + infovec := property(entry,'infovec) success := vector? infovec => opvec := infovec.1 |