diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-01 14:53:11 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-01 14:53:11 +0000 |
| commit | fd12ad84f465b3fab7d8e7bdc48febb940faa761 (patch) | |
| tree | ec70f2a5dcb8f9197edbdc06442822a905455cc0 /src/interp/c-util.boot | |
| parent | 8ca7f8357b22f6a24eeafeeddc6d18270d5fa9ad (diff) | |
| download | open-axiom-fd12ad84f465b3fab7d8e7bdc48febb940faa761.tar.gz | |
more cleanups
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index bb67ffd7..5b8ec150 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1486,7 +1486,8 @@ massageBackendCode x == second x is ["FLUID",:.] => PUSH(CADADR x, $FluidVars) x.rest.first := CADADR x - MAPC(function pushLocalVariable, LISTOFATOMS second x) + for v in LISTOFATOMS second x repeat + pushLocalVariable v -- Even if user used Lisp-level instructions to assign to -- this variable, we still want to note that it is a Lisp-level -- special variable. @@ -1634,7 +1635,7 @@ backendCompile1 x == [[fname,lamex],:$CLOSEDFNS] backendCompile l == - MAPCAR(function backendCompile2, MAPCAN(function backendCompile1,l)) + [backendCompile2 f2 for f2 in [:backendCompile1(f1) for f1 in l]] compileFileQuietly path == quietlyIfInteractive COMPILE_-FILE path |