From 35a3170f422a8a787fa54b5566af71ca77bca53a Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 21 Mar 2009 03:43:38 -0500 Subject: [PATCH] Stack inference for mason --- extra/mason/child/child.factor | 2 +- extra/mason/report/report.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/mason/child/child.factor b/extra/mason/child/child.factor index 1999c76d83..04c4a09f61 100644 --- a/extra/mason/child/child.factor +++ b/extra/mason/child/child.factor @@ -67,7 +67,7 @@ IN: mason.child try-process ] with-directory ; -: return-with ( obj -- ) return-continuation get continue-with ; +: return-with ( obj -- * ) return-continuation get continue-with ; : build-clean? ( -- ? ) { diff --git a/extra/mason/report/report.factor b/extra/mason/report/report.factor index 1b2697a5d1..52e1608885 100644 --- a/extra/mason/report/report.factor +++ b/extra/mason/report/report.factor @@ -16,7 +16,7 @@ IN: mason.report "git id: " write "git-id" eval-file print nl ; : with-report ( quot -- ) - [ "report" utf8 ] dip '[ common-report @ ] with-file-writer ; + [ "report" utf8 ] dip '[ common-report @ ] with-file-writer ; inline : compile-failed-report ( error -- ) [