diff options
Diffstat (limited to 'src/interp/i-spec2.boot')
| -rw-r--r-- | src/interp/i-spec2.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-spec2.boot b/src/interp/i-spec2.boot index c67ccb7e..e8522eb9 100644 --- a/src/interp/i-spec2.boot +++ b/src/interp/i-spec2.boot @@ -84,7 +84,7 @@ upDEF t == ++ <%Mode>: the type of the constant. ++ T: too many constants designated by `form'. constantInDomain?(form,domainForm) == - opAlist := getOperationAlistFromLisplib first domainForm + opAlist := getConstructorOperationsFromDB domainForm.op key := opOf form entryList := [entry for (entry := [.,.,.,k]) in LASSOC(key,opAlist) | k in '(CONST ASCONST)] |