t-ob/atom.scm

Created January 28, 2012 14:19

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/t-ob/1694476.js"></script>
Save t-ob/1694476 to your computer and use it in GitHub Desktop.

Download ZIP

Atom?

Raw

	(define atom?
	(lambda (x)
	(and (not (pair? x)) (not (null? x)))))

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment