mason.common: fix git-id word on Windows

2009-05-13 17:29:14 -05:00 · 2009-05-13 17:29:14 -05:00 · c566708612
parent 2b9631075a
commit c566708612
1 changed files with 2 additions and 2 deletions
--- a/extra/mason/common/common.factor
+++ b/extra/mason/common/common.factor
@ -79,8 +79,8 @@ SYMBOL: stamp
    with-directory ;

 : git-id ( -- id )
-    { "git" "show" } utf8 [ readln ] with-process-reader
-    " " split second ;
+    { "git" "show" } utf8 [ lines ] with-process-reader
+    first " " split second ;

 : ?prepare-build-machine ( -- )
    builds/factor exists? [ prepare-build-machine ] unless ;