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

Stack effect fixes

release
Slava Pestov 2007-09-25 20:31:06 -04:00
parent e0318f769d
commit 376097d2ff
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/concurrency/concurrency.factor
View File

@ -239,7 +239,7 @@ PRIVATE>
"Exiting process: " write self process-pid print "Exiting process: " write self process-pid print
] curry spawn-link ; ] curry spawn-link ;
: server-cc ( -- cc | process ) : server-cc ( -- cc|process )
#! Captures the current continuation and returns the value. #! Captures the current continuation and returns the value.
#! If that CC is called with a process on the stack it will #! If that CC is called with a process on the stack it will
#! set 'self' for the current process to it. Otherwise it will #! set 'self' for the current process to it. Otherwise it will

4
extra/xml/utilities/utilities.factor
View File

@ -10,9 +10,9 @@ IN: xml.utilities
TUPLE: process-missing process tag ; TUPLE: process-missing process tag ;
M: process-missing error. M: process-missing error.
"Tag <" write "Tag <" write
process-missing-tag print-name dup process-missing-tag print-name
"> not implemented on process process " write "> not implemented on process process " write
dup process-missing-process word-name print ; process-missing-process word-name print ;
: run-process ( tag word -- ) : run-process ( tag word -- )
2dup "xtable" word-prop 2dup "xtable" word-prop