aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/jvm/function.lux
diff options
context:
space:
mode:
authorEduardo Julian2019-09-14 23:42:56 -0400
committerEduardo Julian2019-09-14 23:42:56 -0400
commit7027b09b68a5ad8f7a4eb2f9edd913d43d2f1730 (patch)
tree93226f666a0ee75d1ef19186a7bead3e770075d8 /new-luxc/source/luxc/lang/translation/jvm/function.lux
parentfb7a90d4c56d5e4e726f1e83dc951fa46d36ffdb (diff)
More fixes.
Diffstat (limited to '')
-rw-r--r--new-luxc/source/luxc/lang/translation/jvm/function.lux11
1 files changed, 6 insertions, 5 deletions
diff --git a/new-luxc/source/luxc/lang/translation/jvm/function.lux b/new-luxc/source/luxc/lang/translation/jvm/function.lux
index 56ef21b46..d95c2c6c0 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/function.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/function.lux
@@ -258,15 +258,16 @@
(_.INVOKESPECIAL class "<init>" (init-method env function-arity))
_.ARETURN))
))))
- _.fuse)]
+ _.fuse)
+ failureI (|>> (_.INVOKESTATIC //.$Runtime "apply_fail" (type.method [(list) type.void (list)]))
+ _.NULL
+ _.ARETURN)]
(def.method #$.Public $.noneM runtime.apply-method (runtime.apply-signature apply-arity)
(|>> get-amount-of-partialsI
(_.TABLESWITCH +0 (|> num-partials dec .int)
@default @labels)
casesI
- (_.INVOKESTATIC runtime.$Runtime "apply_fail" (type.method [(list) type.void (list)]))
- _.NULL
- _.ARETURN
+ failureI
))))
(def: #export (with-function @begin class env arity bodyI)
@@ -309,7 +310,7 @@
[function-class
(def.class #$.V1_6 #$.Public $.finalC
function-class (list)
- ($.simple-class //.function-class) (list)
+ //.$Function (list)
functionD)])]
(wrap instanceI)))