From c5659a8580de5b531891c6703465c84add9fbb1b Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 13 Apr 2008 06:22:18 +0000
Subject: Various cleanups.

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

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

diff --git a/src/interp/template.boot b/src/interp/template.boot
index 352c02f1..42913388 100644
--- a/src/interp/template.boot
+++ b/src/interp/template.boot
@@ -202,7 +202,7 @@ mkSigPredVectors() ==
   $predVectorFrontier:= 1   --slot 0 in vector will be vacant
   $predVector:= newShell 100
   for nam in allConstructors() |
-          null (GETDATABASE(nam, 'CONSTRUCTORKIND) = 'package) repeat
+          getConstuctorKindFromDB nam ^= "package" repeat
     for [op,:sigList] in GETDATABASE(nam,'OPERATIONALIST) repeat
       for [sig,:r] in sigList repeat
         addConsDB sig
-- 
cgit v1.2.3