Permalink
Browse files

rename any-char in anyToken

  • Loading branch information...
1 parent dcfbca6 commit 4343bd7e1ccccef95831d0fac77aaed73c9d1395 @mmikulicic committed Jan 4, 2010
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/clarsec.clj
View
@@ -60,9 +60,9 @@
(bind p #(result (f %))))
;;
-(def any-char
+(def anyToken
(make-monad 'Parser
- (fn p-any-char [strn]
+ (fn p-anyToken [strn]
(if (= "" strn)
(failed)
(consumed (first strn)
@@ -75,7 +75,7 @@
(make-monad 'Parser (fn p-fail [strn] (failed))))
(defn satisfy [pred]
- (let-bind [c any-char]
+ (let-bind [c anyToken]
(if (pred c) (result c) fail)
))

0 comments on commit 4343bd7

Please sign in to comment.