From 212dd66966a873e3d7183b071f719ef58e4d88fe Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 3 Jan 2015 02:31:14 -0400
Subject: - Beginning to implement compiler in the language itself. - The
 language can now handle more symbols on identifiers.

---
 src/lang/compiler.clj | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'src/lang/compiler.clj')

diff --git a/src/lang/compiler.clj b/src/lang/compiler.clj
index 113cb2fed..27652c1ad 100644
--- a/src/lang/compiler.clj
+++ b/src/lang/compiler.clj
@@ -23,7 +23,7 @@
 
 ;; [Utils/General]
 (defn ^:private write-file [file data]
-  (println 'write-file file (alength data))
+  ;; (println 'write-file file (alength data))
   (with-open [stream (java.io.BufferedOutputStream. (java.io.FileOutputStream. file))]
     (.write stream data))
   ;; (Thread/sleep 2000)
@@ -32,11 +32,11 @@
 (let [;; loader (proxy [ClassLoader] [])
       ]
   (defn load-class! [name file-name]
-    (println "Defining..." name "@" file-name ;; (alength bytecode)
-             )
+    ;; (println "Defining..." name "@" file-name ;; (alength bytecode)
+    ;;          )
     ;; (prn 'loader loader)
     (.loadClass loader name)
-    (println "SUCCESFUL LOAD!")
+    ;; (println "SUCCESFUL LOAD!")
     ;; (.defineClass loader name bytecode 0 (alength bytecode))
     ))
 
@@ -304,7 +304,7 @@
               (->> (dotimes [_ (inc cleanup-level)])))
           (.visitJumpInsn Opcodes/GOTO default-label)))
       
-      [::store [::&analyser/local 0 ?idx] $body]
+      [::store [::&analyser/local _ ?idx] $body]
       (doto writer
         (.visitVarInsn Opcodes/ASTORE ?idx)
         (-> (.visitJumpInsn Opcodes/GOTO (get mappings $body))
@@ -835,7 +835,7 @@
     nil))
 
 (defn quoted->token [quoted]
-  (prn 'quoted->token quoted)
+  ;; (prn 'quoted->token quoted)
   (match quoted
     [::&parser/string ?text]
     {:form [::&analyser/variant "Text" (list {:form [::&analyser/literal ?text]
-- 
cgit v1.2.3