diff options
Diffstat (limited to 'src/interp/parse.boot')
| -rw-r--r-- | src/interp/parse.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/parse.boot b/src/interp/parse.boot index 9f5cb73e..91273ced 100644 --- a/src/interp/parse.boot +++ b/src/interp/parse.boot @@ -247,7 +247,7 @@ parseHas [x,y] == [["SIGNATURE",op,map]] y is ["Join",:u] => "append"/[fn z for z in u] y is ["CATEGORY",:u] => "append"/[fn z for z in u] - kk:= GETDATABASE(opOf y,'CONSTRUCTORKIND) + kk:= getConstructorKindFromDB opOf y kk = "domain" or kk = "category" => [makeNonAtomic y] y is ["ATTRIBUTE",:.] => [y] y is ["SIGNATURE",:.] => [y] |