aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-funsel.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-funsel.boot')
-rw-r--r--src/interp/i-funsel.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-funsel.boot b/src/interp/i-funsel.boot
index b46ef322..0c3acb0a 100644
--- a/src/interp/i-funsel.boot
+++ b/src/interp/i-funsel.boot
@@ -124,7 +124,7 @@ selectMms(op,args,$declaredMode) ==
identType := 'Variable
for x in types1 while not $declaredMode repeat
- not EQCAR(x,identType) => $declaredMode:= x
+ x isnt [=identType,:.] => $declaredMode:= x
types2 := [altTypeOf(x,y,$declaredMode) for x in types1 for y in args]
mmS:=