diff options
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index a8475327..a2691741 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -512,7 +512,9 @@ unStackWarning(msg,args) == nil stackMessage(msg,args == nil) == - $compErrorMessageStack:= [buildMessage(msg,args),:$compErrorMessageStack] + if args ^= nil then + msg := buildMessage(msg,args) + $compErrorMessageStack:= [msg,:$compErrorMessageStack] nil stackMessageIfNone msg == |