Stack inference for mason

db4
Slava Pestov 2009-03-21 03:43:38 -05:00
parent 55bb5500bd
commit 35a3170f42
2 changed files with 2 additions and 2 deletions

View File

@ -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? ( -- ? )
{

View File

@ -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 -- )
[