diff options
| author | Eduardo Julian | 2014-12-13 00:54:09 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2014-12-13 00:54:09 -0400 |
| commit | 4a79a6c9cb2ca3e52b259cff987901f400c8ebc3 (patch) | |
| tree | 5b4c26b5226ec2caa4ce613675dbffdc53cd2247 /src/lang/compiler.clj | |
| parent | 8f5cd3917fd3a94ae99710a614dce9028f9afad8 (diff) | |
+ Removed "module" special form.
+ Fixed a bug that was preventing multi-line comments from being truly multi-line.
Diffstat (limited to 'src/lang/compiler.clj')
| -rw-r--r-- | src/lang/compiler.clj | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/src/lang/compiler.clj b/src/lang/compiler.clj index 8b73720c4..a8d38842a 100644 --- a/src/lang/compiler.clj +++ b/src/lang/compiler.clj @@ -168,11 +168,6 @@ (.visitEnd)))) )) -(defcompiler ^:private compile-module - [::&analyser/module ?name] - (.visit *writer* Opcodes/V1_5 (+ Opcodes/ACC_PUBLIC Opcodes/ACC_SUPER) - (->class ?name) nil "java/lang/Object" nil)) - (defcompiler ^:private compile-defclass [::&analyser/defclass [?package ?name] ?members] (let [parent-dir (->package ?package) @@ -236,7 +231,6 @@ compile-if compile-let compile-def - compile-module compile-defclass compile-definterface compile-variant]] @@ -248,7 +242,9 @@ ;; [Interface] (defn compile [class-name inputs] (prn 'inputs inputs) - (let [=class (new ClassWriter ClassWriter/COMPUTE_MAXS) + (let [=class (doto (new ClassWriter ClassWriter/COMPUTE_MAXS) + (.visit Opcodes/V1_5 (+ Opcodes/ACC_PUBLIC Opcodes/ACC_SUPER) + (->class class-name) nil "java/lang/Object" nil)) ;; (doto (new ClassWriter ClassWriter/COMPUTE_MAXS) ;; (.visit Opcodes/V1_5 (+ Opcodes/ACC_PUBLIC Opcodes/ACC_SUPER) ;; "output" nil "java/lang/Object" nil)) |