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

new accessors

db4
Doug Coleman 2008-08-29 16:16:21 -05:00
parent 6f20caab5a
commit aa102390a2
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/generator/registers/registers.factor
View File

@ -648,7 +648,7 @@ UNION: immediate fixnum POSTPONE: f ;
phantom-datastack get stack>> push ; phantom-datastack get stack>> push ;
: phantom-shuffle ( shuffle -- ) : 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 ; shuffle* phantom-datastack get phantom-append ;
: phantom->r ( n -- ) : phantom->r ( n -- )