From 376097d2ff2d8cb924e61f11e574d3b84cb92982 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 25 Sep 2007 20:31:06 -0400 Subject: [PATCH] Stack effect fixes --- extra/concurrency/concurrency.factor | 2 +- extra/xml/utilities/utilities.factor | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/extra/concurrency/concurrency.factor b/extra/concurrency/concurrency.factor index 391e6b4c4b..32ae3e5940 100644 --- a/extra/concurrency/concurrency.factor +++ b/extra/concurrency/concurrency.factor @@ -239,7 +239,7 @@ PRIVATE> "Exiting process: " write self process-pid print ] curry spawn-link ; -: server-cc ( -- cc | process ) +: server-cc ( -- cc|process ) #! Captures the current continuation and returns the value. #! If that CC is called with a process on the stack it will #! set 'self' for the current process to it. Otherwise it will diff --git a/extra/xml/utilities/utilities.factor b/extra/xml/utilities/utilities.factor index f88d4c5863..303de4295e 100644 --- a/extra/xml/utilities/utilities.factor +++ b/extra/xml/utilities/utilities.factor @@ -10,9 +10,9 @@ IN: xml.utilities TUPLE: process-missing process tag ; M: process-missing error. "Tag <" write - process-missing-tag print-name + dup process-missing-tag print-name "> not implemented on process process " write - dup process-missing-process word-name print ; + process-missing-process word-name print ; : run-process ( tag word -- ) 2dup "xtable" word-prop