Skip to content

Instantly share code, notes, and snippets.

@roman
Forked from takeoutweight/gist:2335835
Created April 8, 2012 18:05
Show Gist options
  • Save roman/2338825 to your computer and use it in GitHub Desktop.
Save roman/2338825 to your computer and use it in GitHub Desktop.
(def identifier
(around
whitespaces
(choice
[(<$> (partial apply vector)
(*> (string "#")
(<* number (string "#"))))
; ^ I think you should be using just number here right?
; you are trying to parse (many1 digit)
(<$> (partial apply vector)
(*> (string "#")
(<* number (string "="))))])))
; ^ same applies here
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment