Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

cleanup

  • Loading branch information...
commit f0e28e8b3f2adae3d01df4055d81a030cb76d62e 1 parent 7127fcb
@mmikulicic authored
Showing with 9 additions and 10 deletions.
  1. +9 −10 src/doroty.clj
View
19 src/doroty.clj
@@ -82,21 +82,20 @@
(def predicate (delay (either binaryPredicate (>>== xpath make-simple-predicate))))
+(def tagexp
+ (delay
+ (let-bind [axis (optional (followedBy identifier (symb "::")))
+ tag tagname
+ pred (optional (brackets predicate))]
+ (result (make-tagexp axis tag pred)))))
+
+
(def xpath
(delay
- (>>== (sepBy (let-bind [axis (optional (followedBy identifier (symb "::")))
- tag tagname
- pred (optional (brackets predicate))]
- (result (make-tagexp axis tag pred))) (string "/"))
+ (>>== (sepBy tagexp (symb "/"))
make-xpath)))
-;(def tagexp
-; (let-bind [axis (optional (followedBy identifier (symb "::")))
-; tag tagname
-; pred (optional (brackets predicate))]
-; (result (make-tagexp axis tag pred))))
-
(def fieldList
(sepBy identifier comma))
Please sign in to comment.
Something went wrong with that request. Please try again.