aboutsummaryrefslogtreecommitdiff
path: root/src/interp/define.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r--src/interp/define.boot3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot
index 29205ebd..6f7ad89f 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -929,7 +929,8 @@ hasSigInTargetCategory(argl,form,opsig,e) ==
0=c => (#(sig:= getSignatureFromMode(form,e))=#form => sig; nil)
1<c =>
sig:= first potentialSigList
- stackWarning('"signature of lhs not unique: %1bp chosen",[sig])
+ stackWarning('"signature of lhs not unique: %1bp chosen",
+ [["Mapping",:sig]])
sig
nil --this branch will force all arguments to be declared