diff options
Diffstat (limited to 'src/interp/i-special.boot')
| -rw-r--r-- | src/interp/i-special.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-special.boot b/src/interp/i-special.boot index 210996ee..8cf776fc 100644 --- a/src/interp/i-special.boot +++ b/src/interp/i-special.boot @@ -1649,8 +1649,8 @@ compileIs(val,pattern) == for var in removeDuplicates vars repeat assignCode:=[["%LET",var,["CDR",["objectAssoc",MKQ var,g]]],:assignCode] null $opIsIs => - ['%when,[["EQ",predCode,MKQ "failed"],["SEQ",:assignCode,'%true]]] - ['%when,[['%not,["EQ",predCode,MKQ "failed"]],["SEQ",:assignCode,'%true]]] + ['%when,[["EQ",predCode,MKQ "failed"],['%seq,:assignCode,'%true]]] + ['%when,[['%not,["EQ",predCode,MKQ "failed"]],['%seq,:assignCode,'%true]]] evalIsPredicate(value,pattern,mode) == --This function pattern matches value to pattern, and returns |