snippet def define procedure
	define (${1:name} ${2:params})
	  (${3:code})

snippet define define procedure
	define (${1:name} ${2:params})
	  (${3:code})

snippet defn define procedure
	define (${1:name} ${2:params})
	  (${3:code})

snippet def define constant
	define ${1:cname} ${2:value}

snippet define define constant
	define ${1:cname} ${2:value}

snippet lambda lambda expression
	lambda (${1:params})
	  (${2:code})

snippet lambda inline lambda expression
	lambda (${1:params}) (${2:code})

snippet and and
	and
	  (${1:predicate1})
	  (${2:predicate2})

snippet and inline and
	and (${1:predicate1}) (${2:predicate2})

snippet or or
	or
	  (${1:predicate1})
	  (${2:predicate2})

snippet or inline or
	or (${1:predicate1}) (${2:predicate2})

snippet cond conditional
	cond
	  [(${1:predicate1}) (${2:consequent1})]
	  [(${3:predicate2}) (${4:consequent2})]
	  [else (${5:consequent3})]

snippet if if
	if
	  (${1:condition})
	  ${2:(then)}
	  (${3:else})

snippet if inline if
	if (${1:condition}) ${2:(then)} (${3:else})

snippet disp display
	display ${1:expr}

snippet display display
	display ${1:expr}

snippet for-each for each
	for-each
	  ${1:(func)}
	  ${2:(elems)}

snippet for for each
	for-each
	  ${1:(func)}
	  ${2:(elems)}

snippet foreach for each
	for-each
	  ${1:(func)}
	  ${2:(elems)}

snippet let let
	let
	  [(${1:expr1} ${2:val1})]
	  [(${3:expr1} ${4:val1})]
	  [${5:body}]

snippet test test case
	test-case
	  "${1:test case desc}"
	  (check-equal?
	    (${2:code})
	    ${3:code result}
	    "${4:failure desc}")

snippet test test suite
	test-suite
	  "${1:test suite desc}"

	  #:before (${2:before func})
	  #:after (${3:after func})

	  ;; test cases

snippet time time
	time ${1:code}