diff options
Diffstat (limited to 'src/interp/database.boot')
| -rw-r--r-- | src/interp/database.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/database.boot b/src/interp/database.boot index 0bd98389..e4245440 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -131,10 +131,10 @@ getConstructorAttributesFromDB: %Constructor -> %Form getConstructorAttributesFromDB ctor == GETDATABASE(ctor,"ATTRIBUTES") -niladicConstructorFromDB: %Constructor -> %Boolean -niladicConstructorFromDB ctor == - property(ctor,'LOADED) => dbNiladic? constructorDB ctor - GETDATABASE(ctor,"NILADIC") +niladicConstructor?: %Constructor -> %Boolean +niladicConstructor? ctor == + form := getConstructorFormFromDB ctor => form.args = nil + false constructorHasCategoryFromDB: %Pair(%Thing,%Thing) -> %List %Code constructorHasCategoryFromDB p == |