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

Fix regression on >r/r> test

db4
Slava Pestov 2008-12-04 10:19:05 -06:00
parent 237c8bb42a
commit ba31f73b41
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/stack-checker/backend/backend.factor
View File

@ -116,10 +116,10 @@ M: object apply-object push-literal ;
] if ; ] if ;
: infer->r ( n -- ) : infer->r ( n -- )
consume-d dup copy-values [ #>r, ] [ nip output-r ] 2bi ; consume-d dup copy-values [ nip output-r ] [ #>r, ] 2bi ;
: infer-r> ( n -- ) : infer-r> ( n -- )
consume-r dup copy-values [ #r>, ] [ nip output-d ] 2bi ; consume-r dup copy-values [ nip output-d ] [ #r>, ] 2bi ;
: undo-infer ( -- ) : undo-infer ( -- )
recorded get [ f "inferred-effect" set-word-prop ] each ; recorded get [ f "inferred-effect" set-word-prop ] each ;