diff options
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r-- | src/interp/define.boot | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index e50aee3b..d25302e8 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -1443,8 +1443,10 @@ doIt(item,$predl) == $functorLocalParameters:= [:$functorLocalParameters,lhs] if code is ["%LET",.,rhs',:.] and isDomainForm(rhs',$e) then if lhs="Rep" then - $Representation:= getRepresentation $e - --$Representation bound by compDefineFunctor, used in compNoStacking + --$Representation bound by compDefineFunctor, used in compNoStacking + $Representation := getRepresentation $e + if $optimizeRep then + nominateForInlining $Representation code is ["%LET",:.] => RPLACA(item,"setShellEntry") rhsCode := rhs' |