diff options
Diffstat (limited to 'src/interp/trace.boot')
| -rw-r--r-- | src/interp/trace.boot | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/trace.boot b/src/interp/trace.boot index ebb04541..28a50610 100644 --- a/src/interp/trace.boot +++ b/src/interp/trace.boot @@ -441,7 +441,8 @@ spadTrace(domain,options) == domainId:= opOf domain.0 currentEntry:= assoc(domain,_/TRACENAMES) currentAlist:= KDR currentEntry - opStructureList:= flattenOperationAlist getOperationAlistFromLisplib domainId + opStructureList := + flattenOperationAlist getConstructorOperationsFromDB domainId sigSlotNumberAlist:= [triple --new form is (<op> <signature> <slotNumber> <condition> <kind>) |