diff options
author | dos-reis <gdr@axiomatics.org> | 2008-08-14 00:48:08 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-08-14 00:48:08 +0000 |
commit | 26c1f12d4d829f293ee9265690ddfb451119df1e (patch) | |
tree | e809c83bded28a576618f98383263e529cebc9c1 /src/interp/as.boot | |
parent | 39d73f2c6b9fd5077e7a2051abd9cd00824838e9 (diff) | |
download | open-axiom-26c1f12d4d829f293ee9265690ddfb451119df1e.tar.gz |
Cleanup GETL(x,'NILADIC)
Diffstat (limited to 'src/interp/as.boot')
-rw-r--r-- | src/interp/as.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/as.boot b/src/interp/as.boot index dcb5bf80..e1b35e2f 100644 --- a/src/interp/as.boot +++ b/src/interp/as.boot @@ -547,7 +547,7 @@ asytranForm1(form,levels,local?) == if form = '_% then $hasPerCent := true IDENTP form => form = "%" => "$" - GETL(form,'NILADIC) => [form] + niladicConstructorFromDB form => [form] form [asytranForm(x,levels,local?) for x in form] @@ -925,7 +925,7 @@ asyTypeUnit x == fn = 'Declare and r is [name,typ,:.] => asyTypeUnitDeclare(name,typ) x is '(_%) => '(_$) [fn,:asyTypeUnitList r] - GETL(x,'NILADIC) => [x] + niladicConstructorFromDB x => [x] --x = 'Type => '(Type) x = '_% => '_$ x |