~ chicken-core (chicken-5) 6d73344fb8987b544de2f1636a0a23b5c45e2182

commit 6d73344fb8987b544de2f1636a0a23b5c45e2182
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jan 6 18:40:00 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Jan 6 18:40:00 2010 +0100

    added missing identify-branch script

diff --git a/scripts/identify-branch b/scripts/identify-branch
new file mode 100755
index 00000000..65afbf5b
--- /dev/null
+++ b/scripts/identify-branch
@@ -0,0 +1,10 @@
+#!/bin/sh
+#
+# identify-branch - check for .git directory and obtain branchname (unless "master")
+
+if test -d .git; then
+    branchname=`git branch --no-color 2> /dev/null | sed -e '/^[^*]/d' -e 's/* \(.*\)/(\1)/'`
+    if test "${branchname}" \!= "(master)"; then
+	echo "${branchname}"
+    fi
+fi