From f80c3bdc59b97891016df6fe6ddb4d54f2178c77 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 3 May 2010 22:14:29 +0000 Subject: * interp/compiler.boot (setqSingle): Tidy. --- src/ChangeLog | 4 ++++ 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,3 +1,7 @@ +2010-05-03 Gabriel Dos Reis + + * interp/compiler.boot (setqSingle): Tidy. + 2010-05-03 Gabriel Dos Reis Generate more readable code for functor definitions. 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) == -- cgit v1.2.3