diff options
Diffstat (limited to 'new-luxc/test/test/luxc/lang/translation/function.lux')
-rw-r--r-- | new-luxc/test/test/luxc/lang/translation/function.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/new-luxc/test/test/luxc/lang/translation/function.lux b/new-luxc/test/test/luxc/lang/translation/function.lux index 1896adff3..999f4f432 100644 --- a/new-luxc/test/test/luxc/lang/translation/function.lux +++ b/new-luxc/test/test/luxc/lang/translation/function.lux @@ -48,8 +48,8 @@ ($_ seq (test "Can read arguments." (|> (do meta;Monad<Meta> - [runtime-bytecode @runtime;generate - sampleI (expressionT;generate (` ("lux call" (~ functionS) (~@ argsS))))] + [runtime-bytecode @runtime;translate + sampleI (expressionT;translate (` ("lux call" (~ functionS) (~@ argsS))))] (@eval;eval sampleI)) (meta;run (init-compiler [])) (case> (#e;Success valueT) @@ -63,10 +63,10 @@ [#let [partial-arity (n.inc cut-off) preS (list;take partial-arity argsS) postS (list;drop partial-arity argsS)] - runtime-bytecode @runtime;generate - sampleI (expressionT;generate (` ("lux call" - ("lux call" (~ functionS) (~@ preS)) - (~@ postS))))] + runtime-bytecode @runtime;translate + sampleI (expressionT;translate (` ("lux call" + ("lux call" (~ functionS) (~@ preS)) + (~@ postS))))] (@eval;eval sampleI)) (meta;run (init-compiler [])) (case> (#e;Success valueT) @@ -87,8 +87,8 @@ functionS (` ("lux function" (~ (code;nat super-arity)) [] ("lux function" (~ (code;nat sub-arity)) [(~@ (list/map code;int env))] ((~ (code;int arg-var))))))] - runtime-bytecode @runtime;generate - sampleI (expressionT;generate (` ("lux call" (~ functionS) (~@ argsS))))] + runtime-bytecode @runtime;translate + sampleI (expressionT;translate (` ("lux call" (~ functionS) (~@ argsS))))] (@eval;eval sampleI)) (meta;run (init-compiler [])) (case> (#e;Success valueT) |