Stack inference for mason
parent
55bb5500bd
commit
35a3170f42
|
@ -67,7 +67,7 @@ IN: mason.child
|
||||||
try-process
|
try-process
|
||||||
] with-directory ;
|
] with-directory ;
|
||||||
|
|
||||||
: return-with ( obj -- ) return-continuation get continue-with ;
|
: return-with ( obj -- * ) return-continuation get continue-with ;
|
||||||
|
|
||||||
: build-clean? ( -- ? )
|
: build-clean? ( -- ? )
|
||||||
{
|
{
|
||||||
|
|
|
@ -16,7 +16,7 @@ IN: mason.report
|
||||||
"git id: " write "git-id" eval-file print nl ;
|
"git id: " write "git-id" eval-file print nl ;
|
||||||
|
|
||||||
: with-report ( quot -- )
|
: with-report ( quot -- )
|
||||||
[ "report" utf8 ] dip '[ common-report @ ] with-file-writer ;
|
[ "report" utf8 ] dip '[ common-report @ ] with-file-writer ; inline
|
||||||
|
|
||||||
: compile-failed-report ( error -- )
|
: compile-failed-report ( error -- )
|
||||||
[
|
[
|
||||||
|
|
Loading…
Reference in New Issue