Add driver changes and float regex

1 files changed, 21 insertions, 2 deletions

diff --git a/src/cljcc/tacky.clj b/src/cljcc/tacky.clj
index b88411e..9e1961a 100644
--- a/src/cljcc/tacky.clj
+++ b/src/cljcc/tacky.clj
@@ -526,8 +526,9 @@
         symbols (atom ident->symbol)
         function-instructions (tacky-function-instructions ast symbols)
         program (vec (concat variable-instructions function-instructions))
-        _ (m/coerce s/TackyProgram program)
-        _ (m/coerce s/SymbolMap @symbols)]
+        ;_ (m/coerce s/TackyProgram program)
+        ;_ (m/coerce s/SymbolMap @symbols)
+        ]
     {:program program
      :ident->symbol @symbols}))
 
@@ -631,6 +632,24 @@ int foo;
        tacky-generate
        :program))
 
+  (def x (-> file-path
+             slurp
+             p/parse-from-src
+             a/validate))
+
+  (pretty/explain
+   s/SymbolMap
+   (:ident->symbol (tacky-generate x)))
+
+  (pretty/explain
+   s/SymbolMap
+   (-> file-path
+       slurp
+       p/parse-from-src
+       a/validate
+       tacky-generate
+       :ident->symbol))
+
   (-> file-path
       slurp
       p/parse-from-src