aboutsummaryrefslogtreecommitdiff
path: root/src/interp/nrunopt.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/nrunopt.boot')
-rw-r--r--src/interp/nrunopt.boot2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/interp/nrunopt.boot b/src/interp/nrunopt.boot
index c3aa691f..c0042bf8 100644
--- a/src/interp/nrunopt.boot
+++ b/src/interp/nrunopt.boot
@@ -558,6 +558,8 @@ dcOpPrint(op,index) ==
slotNumber = 1 => '"missing"
name := $infovec.0.slotNumber
atom name => name
+ name is ["CONS","IDENTITY",
+ ["FUNCALL", ["dispatchFunction", impl],"$"]] => impl
'"looked up"
sayBrightly [:formatOpSignature(op,signumList),:namePart, :suffix]
index + 1