aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-intern.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-intern.boot')
-rw-r--r--src/interp/i-intern.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot
index 5700924c..2f5c3290 100644
--- a/src/interp/i-intern.boot
+++ b/src/interp/i-intern.boot
@@ -307,7 +307,7 @@ flagArguments(op, nargs) ==
signatureFromModemap m ==
[sig,pred,:.] := m
pred = true => rest sig
- first pred = "AND" =>
+ pred.op in '(AND %and) =>
sl := [[a,:b] for [.,a,b] in rest pred]
rest SUBLIS(sl,sig)