From efeacef0a2b98fd428a37b8b6b127bd909ac0e18 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 22 May 2016 12:57:00 -0400
Subject: - Fixed that bug that was causing method definitions to be set as
 final and with strict-fp math.

---
 src/lux/analyser/host.clj   |  1 -
 src/lux/analyser/parser.clj | 15 ++++++++++-----
 2 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/src/lux/analyser/host.clj b/src/lux/analyser/host.clj
index 3703b6ec9..a677b7973 100644
--- a/src/lux/analyser/host.clj
+++ b/src/lux/analyser/host.clj
@@ -2,7 +2,6 @@
 ;;  This Source Code Form is subject to the terms of the Mozilla Public License, v. 2.0.
 ;;  If a copy of the MPL was not distributed with this file,
 ;;  You can obtain one at http://mozilla.org/MPL/2.0/.
-
 (ns lux.analyser.host
   (:require (clojure [template :refer [do-template]]
                      [string :as string])
diff --git a/src/lux/analyser/parser.clj b/src/lux/analyser/parser.clj
index 532e96b83..e60f28a02 100644
--- a/src/lux/analyser/parser.clj
+++ b/src/lux/analyser/parser.clj
@@ -238,7 +238,8 @@
         _ _space_
         =privacy-modifier parse-privacy-modifier
         _ _space_
-        [_ (&lexer/$Bool =strict)] &lexer/lex-bool
+        [_ (&lexer/$Bool =strict*)] &lexer/lex-bool
+        :let [=strict (Boolean/parseBoolean =strict*)]
         _ _space_
         =anns (with-brackets
                 (spaced parse-ann))
@@ -265,9 +266,11 @@
         _ _space_
         =privacy-modifier parse-privacy-modifier
         _ _space_
-        [_ (&lexer/$Bool =final?)] &lexer/lex-bool
+        [_ (&lexer/$Bool =final?*)] &lexer/lex-bool
+        :let [=final? (Boolean/parseBoolean =final?*)]
         _ _space_
-        [_ (&lexer/$Bool =strict)] &lexer/lex-bool
+        [_ (&lexer/$Bool =strict*)] &lexer/lex-bool
+        :let [=strict (Boolean/parseBoolean =strict*)]
         _ _space_
         =anns (with-brackets
                 (spaced parse-ann))
@@ -293,7 +296,8 @@
         _ _space_
         =name parse-name
         _ _space_
-        [_ (&lexer/$Bool =strict)] &lexer/lex-bool
+        [_ (&lexer/$Bool =strict*)] &lexer/lex-bool
+        :let [=strict (Boolean/parseBoolean =strict*)]
         _ _space_
         =anns (with-brackets
                 (spaced parse-ann))
@@ -319,7 +323,8 @@
         _ _space_
         =privacy-modifier parse-privacy-modifier
         _ _space_
-        [_ (&lexer/$Bool =strict)] &lexer/lex-bool
+        [_ (&lexer/$Bool =strict*)] &lexer/lex-bool
+        :let [=strict (Boolean/parseBoolean =strict*)]
         _ _space_
         =anns (with-brackets
                 (spaced parse-ann))
-- 
cgit v1.2.3