diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-12-02 17:36:48 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-12-02 17:36:48 +0000 |
| commit | cc44b14797968a894e92bcff4a4afe30b26dd896 (patch) | |
| tree | 13573b4c2f985f3c4e93de38ef979da8ef0800d8 /src/interp/i-special.boot | |
| parent | e74c52066d421b027ce1be36e02dce615caac397 (diff) | |
| download | open-axiom-cc44b14797968a894e92bcff4a4afe30b26dd896.tar.gz | |
* interp/buildom.boot (setelt): Change SEQ to %seq.
* interp/clam.boot (compHash): Likewise.
* interp/compiler.boot (freeVarUsage): Likewise.
(canReturn): Likewise.
* interp/i-special.boot (compileIs): Likewise.
* interp/g-opt.boot (changeVariableDefinitionToStore): Likewise.
(jumpToToplevel?): Likewise.
(groupVariableDefinitions): Likewise.
(changeLeaveToExit): Likewise.
(optLabelled): Likewise.
(optSeq): Rename from optSEQ. Adjust callers.
* interp/lisp-backend.boot: Translate %seq to SEQ.
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 |