aboutsummaryrefslogtreecommitdiff
path: root/src/interp/as.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/as.boot')
-rw-r--r--src/interp/as.boot4
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