aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-syscmd.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-syscmd.boot')
-rw-r--r--src/interp/i-syscmd.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index 984ad67d..d0386605 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -2508,7 +2508,7 @@ reportOpsFromUnitDirectly unitForm ==
if isRecordOrUnion
then
constructorFunction:= GETL(top,"makeFunctionList") or
- systemErrorHere '"reportOpsFromUnitDirectly"
+ systemErrorHere ["reportOpsFromUnitDirectly",top]
[funlist,.]:= FUNCALL(constructorFunction,"$",unitForm,
$CategoryFrame)
sigList := REMDUP MSORT [[[a,b],true,[c,0,1]] for