diff options
author | dos-reis <gdr@axiomatics.org> | 2008-04-13 06:22:18 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-04-13 06:22:18 +0000 |
commit | c5659a8580de5b531891c6703465c84add9fbb1b (patch) | |
tree | 60966651b64626e365cd158a89cd41a9028ea8a9 /src/interp/template.boot | |
parent | 3c748c0ab1f5119528ae3ae41cc144371b1b375c (diff) | |
download | open-axiom-c5659a8580de5b531891c6703465c84add9fbb1b.tar.gz |
Various cleanups.
Diffstat (limited to 'src/interp/template.boot')
-rw-r--r-- | src/interp/template.boot | 2 |
1 files changed, 1 insertions, 1 deletions
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 |