Get rid of a 'rot'

2009-04-25 22:35:30 -05:00 · 2009-04-25 22:35:30 -05:00 · 8ea3db9eef
parent 76281235e7
commit 8ea3db9eef
1 changed files with 1 additions and 1 deletions
--- a/basis/compiler/codegen/fixup/fixup.factor
+++ b/basis/compiler/codegen/fixup/fixup.factor
@ -25,7 +25,7 @@ TUPLE: label-fixup label class ;
 M: label-fixup fixup*
    dup class>> rc-absolute?
    [ "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 ;

 TUPLE: rel-fixup class type ;