Stack inference for mason
parent
55bb5500bd
commit
35a3170f42
|
@ -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? ( -- ? )
|
||||
{
|
||||
|
|
|
@ -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 -- )
|
||||
[
|
||||
|
|
Loading…
Reference in New Issue