From 6a94b6abab645269c596154ce6812cbeb3811ec5 Mon Sep 17 00:00:00 2001 From: Shagun Agrawal Date: Sat, 28 Dec 2024 23:27:58 +0530 Subject: Add lexing stage for floating point numbers --- src/cljcc/analyze/resolve.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/cljcc/analyze') diff --git a/src/cljcc/analyze/resolve.clj b/src/cljcc/analyze/resolve.clj index 5982312..9f09333 100644 --- a/src/cljcc/analyze/resolve.clj +++ b/src/cljcc/analyze/resolve.clj @@ -271,8 +271,8 @@ ;; Program is list of block items, which are themselves just blocks. (defn resolve-program [program] - (let [res (:block (resolve-block program)) - _ (m/coerce s/Program res)] + (let [res (:block (resolve-block program))] + ; _ (m/coerce s/Program res)] res)) (comment -- cgit v1.2.3