diff options
Diffstat (limited to 'src/interp/database.boot')
-rw-r--r-- | src/interp/database.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/database.boot b/src/interp/database.boot index 05a3e845..1286a98a 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -113,7 +113,7 @@ getDualSignatureFromDB: %Constructor -> %Form getDualSignatureFromDB ctor == GETDATABASE(ctor,"COSIG") -getConstructorPredicatesFromDB: %Constructor -> %Thing +getConstructorPredicatesFromDB: %Constructor -> %List %Thing getConstructorPredicatesFromDB ctor == GETDATABASE(ctor,"PREDICATES") @@ -642,7 +642,7 @@ updateDatabase(fname,cname,systemdir?) == if oldFname := getConstructorAbbreviationFromDB cname then clearClams() clearAllSlams [] - if GETL(cname, 'LOADED) then + if property(cname, 'LOADED) then clearConstructorCaches() if $forceDatabaseUpdate or not systemdir? then clearClams() |