From 663089e7f95f4901a46939ef34c60982dd5aadda Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 14 Apr 2008 01:59:56 +0000
Subject: Various cleanups.

---
 src/interp/postpar.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/postpar.boot')

diff --git a/src/interp/postpar.boot b/src/interp/postpar.boot
index fc59b59f..33602a10 100644
--- a/src/interp/postpar.boot
+++ b/src/interp/postpar.boot
@@ -152,7 +152,7 @@ postAtom x ==
   x=0 => '(Zero)
   x=1 => '(One)
   EQ(x,'T) => 'T_$ -- rename T in spad code to T$
-  IDENTP x and GETDATABASE(x,'NILADIC) => LIST x
+  IDENTP x and niladicConstructorFromDB x => LIST x
   x
 
 postBlock ["Block",:l,x] ==
-- 
cgit v1.2.3