diff options
Diffstat (limited to 'src/interp/g-error.boot')
-rw-r--r-- | src/interp/g-error.boot | 6 |
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) == |