diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-10-10 20:13:08 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-10-10 20:13:08 +0000 |
| commit | 0d4390eadce17c17a9da048d15252473bfc94a59 (patch) | |
| tree | cc97d4d30bef06a93b159eaf3c0614d6806d64ae | |
| parent | de6713058f1feae1c4066892dfaa9de1ba278f56 (diff) | |
| download | open-axiom-0d4390eadce17c17a9da048d15252473bfc94a59.tar.gz | |
Fix typo from last commit
| -rw-r--r-- | src/interp/c-util.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index c7c9443a..66f13aae 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1101,11 +1101,11 @@ backendCompileSPADSLAM(name,args,body) == argtran := second u -- devaluate argument app := third u codePart1 := -- if value already computed, grab it. - null args = nil => [al] + null args => [al] [["SETQ",g2,["assoc",argtran,al]], ["CDR",g2]] codePart2 := -- otherwise compute it, and cache it. -- Note: at most five values are cached. - null args = nil => [true,["SETQ",al,app]] + null args => [true,["SETQ",al,app]] [true,["SETQ",al,["cons5",["CONS",argtran, ["SETQ",g2,app]],al]],g2] decl := -- declare the cache variable. null args => nil |