From a0533814cbc3b4b59850f97e9e72abc8bb83ff57 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 30 Aug 2015 20:07:37 -0400
Subject: - Added call/cc to lux/codata/lazy. - Added some minor compiler
 optimizations.

---
 src/lux/analyser.clj      | 55 ++++++++++++++++++++++++-----------------------
 src/lux/analyser/case.clj |  2 +-
 src/lux/compiler/lux.clj  | 12 +++++------
 3 files changed, 34 insertions(+), 35 deletions(-)

(limited to 'src')

diff --git a/src/lux/analyser.clj b/src/lux/analyser.clj
index 3ff214ee0..552ccd77d 100644
--- a/src/lux/analyser.clj
+++ b/src/lux/analyser.clj
@@ -559,33 +559,34 @@
 
 (defn ^:private analyse-ast [eval! compile-module compile-token exo-type token]
   ;; (prn 'analyse-ast (&/show-ast token))
-  (&/with-cursor (aget token 0)
-    (&/with-expected-type exo-type
-      (|case token
-        [meta (&/$FormS (&/$Cons [_ (&/$IntS idx)] ?values))]
-        (&&lux/analyse-variant (partial analyse-ast eval! compile-module compile-token) exo-type idx ?values)
-
-        [meta (&/$FormS (&/$Cons [_ (&/$TagS ?ident)] ?values))]
-        (|do [;; :let [_ (println 'analyse-ast/_0 (&/ident->text ?ident))]
-              [module tag-name] (&/normalize ?ident)
-              ;; :let [_ (println 'analyse-ast/_1 (&/ident->text (&/T module tag-name)))]
-              idx (&&module/tag-index module tag-name)
-              ;; :let [_ (println 'analyse-ast/_2 idx)]
-              ]
-          (&&lux/analyse-variant (partial analyse-ast eval! compile-module compile-token) exo-type idx ?values))
-        
-        [meta (&/$FormS (&/$Cons ?fn ?args))]
-        (fn [state]
-          (|case ((just-analyse (partial analyse-ast eval! compile-module compile-token) ?fn) state)
-            (&/$Right state* =fn)
-            (do ;; (prn 'GOT_FUN (&/show-ast ?fn) (&/show-ast token) (aget =fn 0 0) (aget =fn 1 0))
-                ((&&lux/analyse-apply (partial analyse-ast eval! compile-module compile-token) exo-type meta =fn ?args) state*))
-
-            _
-            ((analyse-basic-ast (partial analyse-ast eval! compile-module compile-token) eval! compile-module compile-token exo-type token) state)))
-        
-        _
-        (analyse-basic-ast (partial analyse-ast eval! compile-module compile-token) eval! compile-module compile-token exo-type token)))))
+  (|let [[cursor _] token]
+    (&/with-cursor cursor
+      (&/with-expected-type exo-type
+        (|case token
+          [meta (&/$FormS (&/$Cons [_ (&/$IntS idx)] ?values))]
+          (&&lux/analyse-variant (partial analyse-ast eval! compile-module compile-token) exo-type idx ?values)
+
+          [meta (&/$FormS (&/$Cons [_ (&/$TagS ?ident)] ?values))]
+          (|do [;; :let [_ (println 'analyse-ast/_0 (&/ident->text ?ident))]
+                [module tag-name] (&/normalize ?ident)
+                ;; :let [_ (println 'analyse-ast/_1 (&/ident->text (&/T module tag-name)))]
+                idx (&&module/tag-index module tag-name)
+                ;; :let [_ (println 'analyse-ast/_2 idx)]
+                ]
+            (&&lux/analyse-variant (partial analyse-ast eval! compile-module compile-token) exo-type idx ?values))
+          
+          [meta (&/$FormS (&/$Cons ?fn ?args))]
+          (fn [state]
+            (|case ((just-analyse (partial analyse-ast eval! compile-module compile-token) ?fn) state)
+              (&/$Right state* =fn)
+              (do ;; (prn 'GOT_FUN (&/show-ast ?fn) (&/show-ast token) (aget =fn 0 0) (aget =fn 1 0))
+                  ((&&lux/analyse-apply (partial analyse-ast eval! compile-module compile-token) exo-type meta =fn ?args) state*))
+
+              _
+              ((analyse-basic-ast (partial analyse-ast eval! compile-module compile-token) eval! compile-module compile-token exo-type token) state)))
+          
+          _
+          (analyse-basic-ast (partial analyse-ast eval! compile-module compile-token) eval! compile-module compile-token exo-type token))))))
 
 ;; [Resources]
 (defn analyse [eval! compile-module compile-token]
diff --git a/src/lux/analyser/case.clj b/src/lux/analyser/case.clj
index e86d55497..7a1ec4860 100644
--- a/src/lux/analyser/case.clj
+++ b/src/lux/analyser/case.clj
@@ -233,7 +233,7 @@
             ;; :let [_ (println "#13")]
             case-type (&type/variant-case idx value-type*)
             ;; :let [_ (println "#14" (&type/show-type case-type))]
-            [=test =kont] (case (&/|length ?values)
+            [=test =kont] (case (int (&/|length ?values))
                             0 (analyse-pattern case-type unit kont)
                             1 (analyse-pattern case-type (&/|head ?values) kont)
                             ;; 1+
diff --git a/src/lux/compiler/lux.clj b/src/lux/compiler/lux.clj
index 3aa25ac99..6a02ed21d 100644
--- a/src/lux/compiler/lux.clj
+++ b/src/lux/compiler/lux.clj
@@ -34,13 +34,11 @@
 (do-template [<name> <class> <sig> <caster>]
   (defn <name> [compile *type* value]
     (|do [^MethodVisitor *writer* &/get-writer
-          :let [_ (try (doto *writer*
-                         (.visitTypeInsn Opcodes/NEW <class>)
-                         (.visitInsn Opcodes/DUP)
-                         (.visitLdcInsn (<caster> value))
-                         (.visitMethodInsn Opcodes/INVOKESPECIAL <class> "<init>" <sig>))
-                    (catch Exception e
-                      (assert false (prn-str '<name> (alength value) (aget value 0) (aget value 1)))))]]
+          :let [_ (doto *writer*
+                    (.visitTypeInsn Opcodes/NEW <class>)
+                    (.visitInsn Opcodes/DUP)
+                    (.visitLdcInsn (<caster> value))
+                    (.visitMethodInsn Opcodes/INVOKESPECIAL <class> "<init>" <sig>))]]
       (return nil)))
 
   compile-int  "java/lang/Long"      "(J)V" long
-- 
cgit v1.2.3