From dfa26a0f9ddb6d16e10af158df4d8b86acf6dbe5 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Sun, 12 Jan 2014 00:04:44 +0100
Subject: Correct order of subgroup matches

---
 compiler/standardClient.ey | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'compiler/standardClient.ey')

diff --git a/compiler/standardClient.ey b/compiler/standardClient.ey
index 9cbc82b..9854654 100644
--- a/compiler/standardClient.ey
+++ b/compiler/standardClient.ey
@@ -141,8 +141,9 @@
       empty ==?a
 
       [ { ^( } {
-        tail parse currentCapture capture =a
+        currentCapture ==thisCapture
         currentCapture 1 add =currentCapture
+        tail parse thisCapture capture =a
         ^) not { ") expected" die } rep
         tail
       } { ^[ } {
@@ -1085,7 +1086,7 @@
     { .value base10decode } /TOKINT defvd
     { .value "^(\\d+)(\\.(\\d*))?([eE](-)?(\\d+))?$" regex
       not { "Not in fact a float" die } rep
-      ==m1 ==m2 -- ==eS ==e --
+      ==m1 -- ==m2 -- ==eS ==e
 
       0 FLOAT ==m1f
       m1 { zero sub m1f 10 FLOAT mul add =m1f } each
-- 
cgit v1.2.3