fixed bug

js-choi · May 30, 2009 · f660cbc · f660cbc
1 parent a8ae2a9
commit f660cbc
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/name/choi/joshua/fnparse.clj b/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)))