aboutsummaryrefslogtreecommitdiff
path: root/src/interp/showimp.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/showimp.boot')
-rw-r--r--src/interp/showimp.boot5
1 files changed, 2 insertions, 3 deletions
diff --git a/src/interp/showimp.boot b/src/interp/showimp.boot
index 633b7d22..78977b06 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 ['%closure,.,['FUNCALL,[.,a],b]] => sayBrightly ['"constant ",a]
+ item is ['%constant,[a,.]] => sayBrightly ['"constant ",a]
sayBrightly concat('"lazy ",form2String formatSlotDomain i)
dcOpLatchPrint(op,index) ==
@@ -364,8 +364,7 @@ dcOpPrint(op,index) ==
slotNumber = 1 => '"missing"
name := $infovec.0.slotNumber
name isnt [.,:.] => name
- name is ['%closure,'%constant,
- ["FUNCALL", ['%function, impl],"$"]] =>
+ name is ['%constant,[impl,"$"]] =>
kind := 'CONST
impl
'"looked up"