diff options
| -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 |