d16d364f2e2d — Evan Hanson 4 years ago 
Use Mercurial for build version generation
patch browse 
1 files changed, 1 insertions(+), 1 deletions(-)

M sq.scm

M sq.scm +1 -1
@@ 50,7 50,7 @@ 
 
 (define version
   (begin-syntax
-    (let ((x (with-input-from-pipe "git describe --tags 2>/dev/null" read-line)))
+    (let ((x (with-input-from-pipe "hg log -r . --template \"{latesttag}{sub('^-0-.*', '', '-{latesttagdistance}-{node|short}')}\" 2>/dev/null" read-line)))
       (if (string? x) x "(egg)"))))
 
 (define exit-status