mason: print callstack trace for build loop errors

diff --git a/extra/mason/mason.factor b/extra/mason/mason.factor
old mode 100644 (file)
new mode 100755 (executable)
index 8818e1c..42f3737
--- a/extra/mason/mason.factor
+++ b/extra/mason/mason.factor
@@ -7,7 +7,7 @@ FROM: mason.build => build ;
 IN: mason
 
 : build-loop-error ( error -- )
-    [ "Build loop error:" print flush error. flush ]
+    [ "Build loop error:" print flush error. flush :c flush ]
     [ error-continuation get call>> email-error ] bi ;
 
 : build-loop-fatal ( error -- )