diff options
Diffstat (limited to 'src/interp/showimp.boot')
| -rw-r--r-- | src/interp/showimp.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/showimp.boot b/src/interp/showimp.boot index 8f65d5e5..633b7d22 100644 --- a/src/interp/showimp.boot +++ b/src/interp/showimp.boot @@ -283,7 +283,7 @@ dcSlots con == item is [n,:op] and integer? n => dcOpLatchPrint(op,n) null item and i > 5 => sayBrightly ['"arg ",strconc('"#",toString(i - 5))] item isnt [.,:.] => sayBrightly ['"fun ",item] - item is ['CONS,.,['FUNCALL,[.,a],b]] => sayBrightly ['"constant ",a] + item is ['%closure,.,['FUNCALL,[.,a],b]] => sayBrightly ['"constant ",a] sayBrightly concat('"lazy ",form2String formatSlotDomain i) dcOpLatchPrint(op,index) == @@ -364,7 +364,7 @@ dcOpPrint(op,index) == slotNumber = 1 => '"missing" name := $infovec.0.slotNumber name isnt [.,:.] => name - name is ["CONS",'%constant, + name is ['%closure,'%constant, ["FUNCALL", ['%function, impl],"$"]] => kind := 'CONST impl |