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

Get rid of a 'rot'

db4
Slava Pestov 2009-04-25 22:35:30 -05:00
parent 76281235e7
commit 8ea3db9eef
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/codegen/fixup/fixup.factor
View File

@ -25,7 +25,7 @@ TUPLE: label-fixup label class ;
M: label-fixup fixup* M: label-fixup fixup*
dup class>> rc-absolute? dup class>> rc-absolute?
[ "Absolute labels not supported" throw ] when [ "Absolute labels not supported" throw ] when
[ label>> ] [ class>> ] bi compiled-offset 4 - rot [ class>> ] [ label>> ] bi compiled-offset 4 - swap
3array label-table get push ; 3array label-table get push ;
TUPLE: rel-fixup class type ; TUPLE: rel-fixup class type ;