From ef185e0ec91af1d22762ef55dc5586c240633e18 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 20 Dec 2014 17:08:18 -0400
Subject: Removed ann-class, cleaned-up some old commented-out code &
 turned-off the enabled logging.

---
 src/lang/parser.clj | 21 ---------------------
 1 file changed, 21 deletions(-)

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

diff --git a/src/lang/parser.clj b/src/lang/parser.clj
index 90db91172..ea3f518f5 100644
--- a/src/lang/parser.clj
+++ b/src/lang/parser.clj
@@ -168,26 +168,6 @@
          =call (apply-m parse-form (list ?call))]
     (return [::dynamic-access =object =call])))
 
-(defparser ^:private parse-ann-class
-  [::&lexer/list ([[::&lexer/ident "ann-class"] [::&lexer/ident ?class] & ?decl] :seq)]
-  (let [[_ class-data] (reduce (fn [[mode data] event]
-                                 (match event
-                                   [::&lexer/ident "methods"]
-                                   [:methods data]
-
-                                   [::&lexer/ident "fields"]
-                                   [:fields data]
-
-                                   [::&lexer/list ([[::&lexer/ident ":"] [::&lexer/ident ?field-name] [::&lexer/ident ?field-class]] :seq)]
-                                   [mode (assoc-in data [mode ?field-name] [::&type/object ?field-class []])]
-                                   
-                                   [::&lexer/list ([[::&lexer/ident ":"] [::&lexer/ident ?method-name] [::&lexer/list ([[::&lexer/ident "->"] [::&lexer/tuple ?args*] [::&lexer/ident ?return]] :seq)]] :seq)]
-                                   [mode (assoc-in data [mode ?method-name] [::&type/fn (map ident->string ?args*) ?return])]
-                                   ))
-                               [nil {}]
-                               ?decl)]
-    (return [::ann-class ?class class-data])))
-
 (defparser ^:private parse-string
   [::&lexer/string ?string]
   (return [::string ?string]))
@@ -221,7 +201,6 @@
               parse-remove
               parse-static-access
               parse-dynamic-access
-              parse-ann-class
               parse-defclass
               parse-definterface
               parse-import
-- 
cgit v1.2.3