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