aboutsummaryrefslogtreecommitdiff
path: root/src/interp/c-util.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/c-util.boot')
-rw-r--r--src/interp/c-util.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index c1a7b4f3..f3bb0bf1 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -830,7 +830,7 @@ stackWarning(msg,args == nil) ==
unStackWarning(msg,args) ==
msg := buildMessage(msg,args)
if $insideCapsuleFunctionIfTrue then msg:= [$op,": ",:msg]
- $warningStack:= EFFACE(msg,$warningStack)
+ $warningStack := remove!($warningStack,msg)
nil
stackMessage(msg,args == nil) ==