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

Changed callcc0 and callcc1 to use with-continuation.

cvs
Chris Double 2005-09-18 02:18:28 +00:00
parent 277630eeae
commit 9193b4fecb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/continuations.factor
View File

@ -41,7 +41,7 @@ TUPLE: interp data call name catch ;
r> call ; inline r> call ; inline
: callcc0 ( quot ++ | quot: cont -- | cont: ++ ) : callcc0 ( quot ++ | quot: cont -- | cont: ++ )
"use with-continuation instead" throw ; with-continuation ;
: callcc1 ( quot ++ obj | quot: cont -- | cont: obj ++ obj ) : callcc1 ( quot ++ obj | quot: cont -- | cont: obj ++ obj )
"use with-continuation instead" throw ; with-continuation ;