Permalink
Browse files

cleanup

  • Loading branch information...
1 parent 1404a24 commit 08d5767600cffb9ffb079ec2c8130a6d9cd78253 @mmikulicic committed Jan 4, 2010
Showing with 0 additions and 3 deletions.
  1. +0 −3 src/clarsec.clj
View
@@ -100,9 +100,6 @@
(defn option [default p]
(<|> p (result default)))
-;(defn string [strn]
-; (let-bind [x (m-sequence (map is-char strn))]
-; (result (apply str x))))
(defn string [strn]
(>>== (m-sequence (map is-char strn))

0 comments on commit 08d5767

Please sign in to comment.