aboutsummaryrefslogtreecommitdiff
path: root/src/interp/g-error.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/g-error.boot')
-rw-r--r--src/interp/g-error.boot6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/g-error.boot b/src/interp/g-error.boot
index 4964e4da..3841f295 100644
--- a/src/interp/g-error.boot
+++ b/src/interp/g-error.boot
@@ -79,9 +79,9 @@ errorSupervisor(errorType,errorMsg) ==
errorSupervisor1(errorType,errorMsg,$BreakMode)
needsToSplitMessage msg ==
- member("%b", msg) or member('"%b",msg) => false
- member("%d",msg) or member('"%d",msg) => false
- member("%l",msg) or member('"%l",msg) => false
+ "%b" in msg or '"%b" in msg => false
+ "%d" in msg or '"%d" in msg => false
+ "%l" in msg or '"%l" in msg => false
true
errorSupervisor1(errorType,errorMsg,$BreakMode) ==