Permalink
Browse files

fixed bug

  • Loading branch information...
1 parent a8ae2a9 commit f660cbc0f14a4ca6d3a01561cc46bcfd0f6b8e28 joshua-choi committed May 30, 2009
Showing with 3 additions and 2 deletions.
  1. +3 −2 src/name/choi/joshua/fnparse.clj
View
5 src/name/choi/joshua/fnparse.clj
@@ -264,8 +264,9 @@
The new rule's products would be either the vector [b-product ...] for how many matches
of b were found. If there was no match, then nil is simply returned."
[subrule]
- (complex [first-subproduct subrule
- next-token remainder-peek
+ (complex [cur-remainder get-remainder
+ :when (seq cur-remainder)
+ first-subproduct subrule
rest-subproducts (rep* subrule)]
(cons first-subproduct rest-subproducts)))

0 comments on commit f660cbc

Please sign in to comment.