diff options
author | Eduardo Julian | 2014-12-20 17:08:18 -0400 |
---|---|---|
committer | Eduardo Julian | 2014-12-20 17:08:18 -0400 |
commit | ef185e0ec91af1d22762ef55dc5586c240633e18 (patch) | |
tree | d4386080140962fa300e9114415af4a485c4f0f9 /src/lang/parser.clj | |
parent | 067a1900e73c40c502f57b6d54a49549c968db83 (diff) |
Removed ann-class, cleaned-up some old commented-out code & turned-off the enabled logging.
Diffstat (limited to 'src/lang/parser.clj')
-rw-r--r-- | src/lang/parser.clj | 21 |
1 files changed, 0 insertions, 21 deletions
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 |