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 65636852..05dd92c4 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -527,7 +527,9 @@ stackMessageIfNone msg == [msg,:$compErrorMessageStack] nil -stackAndThrow msg == +stackAndThrow(msg, args == nil) == + if args ^= nil then + msg := buildMessage(msg,args) $compErrorMessageStack:= [msg,:$compErrorMessageStack] THROW("compOrCroak",nil) |