diff options
Diffstat (limited to 'src/interp/i-spec2.boot')
| -rw-r--r-- | src/interp/i-spec2.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-spec2.boot b/src/interp/i-spec2.boot index 8a8a955e..e5c2bb15 100644 --- a/src/interp/i-spec2.boot +++ b/src/interp/i-spec2.boot @@ -405,7 +405,7 @@ compileIs(val,pattern) == pat is ["=",var] => vars:= [var,:vars] predCode:=["%LET",g:=GENSYM(),["isPatternMatch", getArgValue(val,computedMode val),MKQ removeConstruct pattern]] - for var in REMDUP vars repeat + for var in removeDuplicates vars repeat assignCode:=[["%LET",var,["CDR",["ASSQ",MKQ var,g]]],:assignCode] null $opIsIs => ["COND",[["EQ",predCode,MKQ "failed"],["SEQ",:assignCode,MKQ 'T]]] |