steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

compiler: Change a couple of usages of rebinding variables with the same name. It's legal but confusing.

locals-and-roots
Doug Coleman 2016-05-15 18:48:22 -07:00
parent 167ce1c0d2
commit b5221fd92e
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/compiler/cfg/gc-checks/gc-checks.factor
View File

@ -39,9 +39,9 @@ M: insn gc-check-offsets* 2drop ;
! Divide a basic block into sections, where every section ! Divide a basic block into sections, where every section
! other than the first requires a GC check. ! other than the first requires a GC check.
[ [
insns 0 seq [| insns from to | insns 0 seq [| insns' from to |
from to insns subseq , from to insns' subseq ,
insns to insns' to
] each ] each
tail , tail ,
] { } make ; ] { } make ;

6
basis/compiler/cfg/parallel-copy/parallel-copy.factor
View File

@ -32,9 +32,9 @@ SYMBOLS: locs preds to-do ready ;
:: process-to-do ( b temp: ( src -- dst ) quot: ( dst src -- ) -- ) :: process-to-do ( b temp: ( src -- dst ) quot: ( dst src -- ) -- )
b locs get at b = [ b locs get at b = [
b temp call :> temp b temp call :> temp'
temp b quot call temp' b quot call
temp b locs get set-at temp' b locs get set-at
b ready get push-front b ready get push-front
] when ; inline ] when ; inline