diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-03 22:14:29 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-03 22:14:29 +0000 |
| commit | f80c3bdc59b97891016df6fe6ddb4d54f2178c77 (patch) | |
| tree | 10f15b3c04ac2bc15595ef2730760309404f0019 | |
| parent | 6c0cc18deacadb592fe3d68c5585979f6902cd1a (diff) | |
| download | open-axiom-f80c3bdc59b97891016df6fe6ddb4d54f2178c77.tar.gz | |
* interp/compiler.boot (setqSingle): Tidy.
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/compiler.boot | 11 |
2 files changed, 9 insertions, 6 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index cfa2b3fd..0c0022a7 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,9 @@ 2010-05-03 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/compiler.boot (setqSingle): Tidy. + +2010-05-03 Gabriel Dos Reis <gdr@cs.tamu.edu> + Generate more readable code for functor definitions. * interp/nruncomp.boot (washFunctorBody): New. (buildFunctor): Use it. diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 3837ea58..c2f23769 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -838,12 +838,11 @@ setqSingle(id,val,m,E) == e':= augModemapsFromDomain1(id,val,e') --all we do now is to allocate a slot number for lhs --e.g. the %LET form below will be changed by putInLocalDomainReferences - if k := NRTassocIndex(id) then - form := ["setShellEntry","$",k,x] - else form:= - $QuickLet => ["%LET",id,x] - ["%LET",id,x, - (isDomainForm(x,e') => ['ELT,id,0];first outputComp(id,e'))] + form := + k := NRTassocIndex(id) => ["setShellEntry","$",k,x] + $QuickLet => ["%LET",id,x] + ["%LET",id,x, + (isDomainForm(x,e') => ['ELT,id,0];first outputComp(id,e'))] [form,m',e'] assignError(val,m',form,m) == |