diff options
Diffstat (limited to 'stdlib/source/test/lux/tool/compiler/default/syntax.lux')
-rw-r--r-- | stdlib/source/test/lux/tool/compiler/default/syntax.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/test/lux/tool/compiler/default/syntax.lux b/stdlib/source/test/lux/tool/compiler/default/syntax.lux index d6aee7e37..a9744dfb6 100644 --- a/stdlib/source/test/lux/tool/compiler/default/syntax.lux +++ b/stdlib/source/test/lux/tool/compiler/default/syntax.lux @@ -2,7 +2,7 @@ [lux #* [abstract/monad (#+ do)] [data - text/format + ["%" text/format (#+ format)] ["." name]] ["r" math/random (#+ Random) ("#@." monad)] ["_" test (#+ Test)] @@ -79,7 +79,7 @@ [sample code^] ($_ _.and (_.test "Can parse Lux code." - (case (let [source-code (%code sample)] + (case (let [source-code (%.code sample)] (/.parse "" (dictionary.new text.hash) (text.size source-code) [default-cursor 0 source-code])) (#.Left error) @@ -90,7 +90,7 @@ (do @ [other code^] (_.test "Can parse Lux multiple code nodes." - (let [source-code (format (%code sample) " " (%code other)) + (let [source-code (format (%.code sample) " " (%.code other)) source-code//size (text.size source-code)] (case (/.parse "" (dictionary.new text.hash) source-code//size [default-cursor 0 source-code]) @@ -128,7 +128,7 @@ comment comment^] ($_ _.and (_.test "Can handle comments." - (case (let [source-code (format comment (%code sample)) + (case (let [source-code (format comment (%.code sample)) source-code//size (text.size source-code)] (/.parse "" (dictionary.new text.hash) source-code//size [default-cursor 0 source-code])) |