Skip to content

Instantly share code, notes, and snippets.

@evhan
evhan / tagged.scm
Last active August 29, 2015 14:19 — forked from ktakashi/tagged.scm
(import (scheme base) (scheme write) (scheme cxr))
(cond-expand
(chibi (import (chibi) (chibi match)))
(sagittarius (import (sagittarius) (match)))
(gauche (import (gauche base) (util match)))
(chicken (import-for-syntax (matchable)))
(else #t))
(cond-expand

Keybase proof

I hereby claim:

  • I am evhan on github.
  • I am evhan (https://keybase.io/evhan) on keybase.
  • I have a public key ASDg0uFNtF6YRS0iQTcAA5VAA45SVkGsiYTlBLbl2TYDygo

To claim this, I am signing this object:

@evhan
evhan / git-test-merge
Created September 2, 2018 22:35
git-test-merge
#!/bin/sh -e
if ! git rev-parse --quiet --verify >/dev/null "${1}"
then
echo 1>&2 Not something we can merge: "${1}"
exit 1
fi
if test -n "$(git status --porcelain --untracked-files=no)"
then