diff options
| author | Eduardo Julian | 2015-03-21 00:34:06 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2015-03-21 00:34:06 -0400 |
| commit | f8d9fae08d28cd4236c545798de48aba0aac028e (patch) | |
| tree | ef4c7c33ed865bbf89ebe40a0c3423d0604b18cb /src/lux/compiler/case.clj | |
| parent | 25be66a8a58b202284152d5a422d13fb81661abb (diff) | |
[2nd Super Refactoring That Breaks The System: Part 7]
- System works correctly once more.
Diffstat (limited to 'src/lux/compiler/case.clj')
| -rw-r--r-- | src/lux/compiler/case.clj | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/lux/compiler/case.clj b/src/lux/compiler/case.clj index 22349bbca..b54d2e83a 100644 --- a/src/lux/compiler/case.clj +++ b/src/lux/compiler/case.clj @@ -40,10 +40,10 @@ [["Tuple" ?members]] (|let [[register* =members] (&/fold (fn [register+=members member] - (prn 'register+=members (alength register+=members)) + ;; (prn 'register+=members (alength register+=members)) (|let [[_register =members] register+=members [__register =member] (let [matched (->match $body _register member)] - (prn 'matched (alength matched)) + ;; (prn 'matched (alength matched)) matched)] (&/T __register (&/|cons =member =members)))) (&/T register (&/|list)) @@ -186,7 +186,7 @@ (->> (|let [["Pattern" [?body ?match]] ?body+?match]) (doseq [?body+?match (&/->seq patterns) :let [;; _ (prn 'compile-pattern-matching/pattern pattern) - _ (prn '?body+?match (alength ?body+?match) (aget ?body+?match 0)) + ;; _ (prn '?body+?match (alength ?body+?match) (aget ?body+?match 0)) $else (new Label)]]))) (.visitInsn Opcodes/POP) (.visitTypeInsn Opcodes/NEW ex-class) @@ -204,12 +204,13 @@ ;; [Resources] (defn compile-case [compile *type* ?variant ?base-register ?num-registers ?branches] - (prn 'compile-case ?variant ?base-register ?num-registers (&/|length ?branches)) + ;; (prn 'compile-case ?variant ?base-register ?num-registers (&/|length ?branches)) (exec [*writer* &/get-writer :let [$end (new Label)] _ (compile ?variant)] (|let [[mappings patterns] (process-branches ?base-register ?branches) - _ (prn '[(&/|length mappings) (&/|length patterns)] [(&/|length mappings) (&/|length patterns)])] + ;; _ (prn '[(&/|length mappings) (&/|length patterns)] [(&/|length mappings) (&/|length patterns)]) + ] (exec [_ (compile-pattern-matching *writer* compile mappings patterns $end) :let [_ (.visitLabel *writer* $end)]] (return nil))) |