Permalink
Browse files

formatting

  • Loading branch information...
1 parent 9eff0f2 commit a54987cc9c455208f7a7622992a694be17f53114 @youngnh committed Feb 7, 2011
Showing with 8 additions and 8 deletions.
  1. +8 −8 src/the/parsatron.clj
View
@@ -99,7 +99,7 @@
(defn many [p]
(fn [state cok cerr eok eerr]
(letfn [(many-err [_ _]
- (throw (RuntimeException. "Combinator '*' is applied to a parser that accepts an empty string")))
+ (throw (RuntimeException. "Combinator '*' is applied to a parser that accepts an empty string")))
(pcok [coll]
(fn [item state]
(letfn [(exit-cok [_]
@@ -114,13 +114,13 @@
(always [])
(fn [state cok cerr eok eerr]
(letfn [(pcok [item state]
- (let [q (times (dec n) p)]
- (letfn [(qcok [items state]
- (cok (cons item items) state))]
- (q state qcok cerr qcok eerr))))
- (peok [item state]
- (eok (repeat n item) state))]
- (p state pcok cerr peok eerr)))))
+ (let [q (times (dec n) p)]
+ (letfn [(qcok [items state]
+ (cok (cons item items) state))]
+ (q state qcok cerr qcok eerr))))
+ (peok [item state]
+ (eok (repeat n item) state))]
+ (p state pcok cerr peok eerr)))))
(defn choice [& parsers]
(if (empty? parsers)

0 comments on commit a54987c

Please sign in to comment.