new accessors

2008-08-29 16:16:21 -05:00 · 2008-08-29 16:16:21 -05:00 · aa102390a2
parent 6f20caab5a
commit aa102390a2
1 changed files with 1 additions and 1 deletions
--- a/basis/compiler/generator/registers/registers.factor
+++ b/basis/compiler/generator/registers/registers.factor
@ -648,7 +648,7 @@ UNION: immediate fixnum POSTPONE: f ;
    phantom-datastack get stack>> push ;

 : phantom-shuffle ( shuffle -- )
-    [ effect-in length phantom-datastack get phantom-input ] keep
+    [ in>> length phantom-datastack get phantom-input ] keep
    shuffle* phantom-datastack get phantom-append ;

 : phantom->r ( n -- )