Merge pull request #10 from sjl/master

Add a 'string' convenience function.
youngnh · Sep 13, 2012 · 94feadd · 94feadd
2 parents 62a199a + e58f0db
commit 94feadd
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 1 deletion.
diff --git a/.gitignore b/.gitignore
@@ -2,4 +2,5 @@ pom.xml
 *jar
 lib
 classes
-.lein*
+.lein*
+target/
diff --git a/src/the/parsatron.clj b/src/the/parsatron.clj
@@ -234,6 +234,12 @@
   []
   (token #(Character/isLetter %)))
 
+(defn string
+  "Consume the given string"
+  [s]
+  (reduce nxt (concat (map char s)
+                      (list (always s)))))
+
 (defn between
   "Parse p after parsing open and before parsing close, returning the
    value of p and discarding the values of open and close"

diff --git a/test/parsatron/test-trampoline.clj → test/parsatron/test_trampoline.clj b/test/parsatron/test-trampoline.clj → test/parsatron/test_trampoline.clj