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

Remove unused word

slava 2006-07-31 20:13:12 +00:00
parent ec4d9b4932
commit 373bbbee95
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
library/tools/interpreter.factor
View File

@ -90,11 +90,6 @@ SYMBOL: callframe-end
: <callframe> ( quot -- seq ) : <callframe> ( quot -- seq )
0 over length 3array ; 0 over length 3array ;
: quot>cont ( quot -- continuation )
<callframe> >vector
<empty-continuation>
[ set-continuation-call ] keep ;
: catch-harness ( continuation -- quot ) : catch-harness ( continuation -- quot )
[ [ c> 2array ] % , \ continue-with , ] [ ] make ; [ [ c> 2array ] % , \ continue-with , ] [ ] make ;