aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-syscmd.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-syscmd.boot')
-rw-r--r--src/interp/i-syscmd.boot10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index 81fee035..d1674279 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -3139,11 +3139,11 @@ handleNoParseCommands(unab, string) ==
npsynonym(unab, (null spaceIndex => '""; SUBSEQ(string, spaceIndex+1)))
null spaceIndex =>
FUNCALL unab
- member(unab, '( quit _
- fin _
- pquit _
- credits _
- copyright )) =>
+ unab in '( quit _
+ fin _
+ pquit _
+ credits _
+ copyright ) =>
sayKeyedMsg("S2IV0005", NIL)
nil
funName := INTERN strconc('"np",STRING unab)