diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-06 21:17:36 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-06 21:17:36 +0000 |
| commit | 89674096006b286c3c20e0969c493e7f42b56365 (patch) | |
| tree | fe8fe5485d0fed3e41943833f387f1dccd57148a /src/interp/i-eval.boot | |
| parent | 2a44af7ae10c039f26cea6767df41d73a3d795a0 (diff) | |
| download | open-axiom-89674096006b286c3c20e0969c493e7f42b56365.tar.gz | |
cleanup
Diffstat (limited to 'src/interp/i-eval.boot')
| -rw-r--r-- | src/interp/i-eval.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-eval.boot b/src/interp/i-eval.boot index aae60c58..5626f35c 100644 --- a/src/interp/i-eval.boot +++ b/src/interp/i-eval.boot @@ -231,7 +231,7 @@ evalForm(op,opName,argl,mmS) == dc:= first sig form := dc='local => --[fun,:form] - atom fun => + fun isnt [.,:.] => isLocallyBound fun => ['SPADCALL,:form,fun] [fun,:form,nil] ['SPADCALL,:form,fun] @@ -270,7 +270,7 @@ sideEffectedArg?(t,sig,opName) == t = dc getArgValue(a, t) == - atom a and not vector? a => + a isnt [.,:.] and not vector? a => t' := coerceOrRetract(getBasicObject a,t) t' and getValueNormalForm t' v := getArgValue1(a, t) => v |