(stage 2): Use iteration rather than recursive for reordering.

diff --git a/FLT/DEVA-OTF.flt b/FLT/DEVA-OTF.flt
index f14a465..5328c9b 100644 (file)
--- a/FLT/DEVA-OTF.flt
+++ b/FLT/DEVA-OTF.flt
@@ -145,11 +145,11 @@
 
    ;; Syllables with an overt halant
    (" (RHJ?)?([^ ]+)(HN) "
-    | (1 = *) (2 reorder) (3 = =) |)
+    | (1 = *) (2 reorder *) (3 = =) |)
 
    ;; Ordinary syllables
    (" (RHJ?)?([^mubpasStA ]+)(m?u?b?p?n?a?[sS]?t?A?) "
-    | (1 = *) (2 reorder) (3 = *) |)
+    | (1 = *) (2 reorder *) (3 = *) |)
 
    ("." =))
   *)
@@ -160,8 +160,8 @@
  (reorder
   (cond
    ("J?(H)(R)$" (2 =) (1 =))
-   ("J?(HR)(.+)$" (1 = =) (2 reorder))
-   ("(.)(.*)$" (1 =) (2 reorder))))
+   ("J?(HR)" (1 = =))
+   ("." =)))
  )
 
 ;; Stage 3