diff options
Diffstat (limited to '')
| -rw-r--r-- | src/lux/compiler/host.clj | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/lux/compiler/host.clj b/src/lux/compiler/host.clj index f50ab719f..9805d2c70 100644 --- a/src/lux/compiler/host.clj +++ b/src/lux/compiler/host.clj @@ -199,6 +199,11 @@ (prepare-return! *type*))]] (return nil))) +(defn compile-jvm-null [compile *type*] + (exec [*writer* &/get-writer + :let [_ (.visitInsn *writer* Opcodes/ACONST_NULL)]] + (return nil))) + (defn compile-jvm-new [compile *type* ?class ?classes ?args] (exec [*writer* &/get-writer :let [init-sig (str "(" (reduce str "" (map &host/->type-signature ?classes)) ")V") |