diff options
author | Eduardo Julian | 2018-07-28 13:36:49 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-07-28 13:36:49 -0400 |
commit | dff8878c13610ae8d1207aaabefbecc88cd3911f (patch) | |
tree | 11f78712c9f1cafd8be3ec67c5bcb1c738c115be /stdlib/source/lux/compiler/default/phase/translation/scheme/function.jvm.lux | |
parent | b14102eaa2a80f51f160ba293ec01928dbe683c3 (diff) |
Temporary commit to get rid of "+" signs for Nat.
Diffstat (limited to 'stdlib/source/lux/compiler/default/phase/translation/scheme/function.jvm.lux')
-rw-r--r-- | stdlib/source/lux/compiler/default/phase/translation/scheme/function.jvm.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/lux/compiler/default/phase/translation/scheme/function.jvm.lux b/stdlib/source/lux/compiler/default/phase/translation/scheme/function.jvm.lux index 113f6b325..437c92520 100644 --- a/stdlib/source/lux/compiler/default/phase/translation/scheme/function.jvm.lux +++ b/stdlib/source/lux/compiler/default/phase/translation/scheme/function.jvm.lux @@ -70,8 +70,8 @@ (_.letrec (list [@function (_.lambda [(list) (#.Some @curried)] (_.let (list [@num-args (_.length/1 @curried)]) (<| (_.if (|> @num-args (_.=/2 arityO)) - (<| (_.let (list [(reference.local' +0) @function])) - (_.let-values (list [[(|> (list.n/range +0 (dec arity)) + (<| (_.let (list [(reference.local' |0) @function])) + (_.let-values (list [[(|> (list.n/range |0 (dec arity)) (list/map ..input)) #.None] (_.apply/2 (_.global "apply") (_.global "values") @curried)])) |