From d8b1363f087ae15d2ed63ab1f86a14a83c43f1e3 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Mon, 12 Dec 2016 23:07:50 -0400 Subject: - No longer using record syntax in certain macros. --- stdlib/test/test/lux/concurrency/actor.lux | 2 +- stdlib/test/test/lux/data/text.lux | 6 +++--- stdlib/test/test/lux/host.lux | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) (limited to 'stdlib/test') diff --git a/stdlib/test/test/lux/concurrency/actor.lux b/stdlib/test/test/lux/concurrency/actor.lux index 7940cb22d..c2872796c 100644 --- a/stdlib/test/test/lux/concurrency/actor.lux +++ b/stdlib/test/test/lux/concurrency/actor.lux @@ -18,7 +18,7 @@ (actor: Adder Int - (method: (add! {offset Int}) + (method: (add! [offset Int]) [Int Int] (let [*state*' (i.+ offset *state*)] (wrap (#;Right [*state*' [*state* *state*']])))) diff --git a/stdlib/test/test/lux/data/text.lux b/stdlib/test/test/lux/data/text.lux index e10f23735..f79d730f4 100644 --- a/stdlib/test/test/lux/data/text.lux +++ b/stdlib/test/test/lux/data/text.lux @@ -36,13 +36,13 @@ (assert "" (|> sample (&;at idx) (case> (^=> (#;Some char) - {(char;as-text char) char'} - {[(&;index-of char' sample) + [(char;as-text char) char'] + [[(&;index-of char' sample) (&;last-index-of char' sample) (&;index-of' char' idx sample) (&;last-index-of' char' idx sample)] [(#;Some io) (#;Some lio) - (#;Some io') (#;Some lio')]}) + (#;Some io') (#;Some lio')]]) (and (n.<= idx io) (n.>= idx lio) diff --git a/stdlib/test/test/lux/host.lux b/stdlib/test/test/lux/host.lux index 9cb9dac23..f15963e1d 100644 --- a/stdlib/test/test/lux/host.lux +++ b/stdlib/test/test/lux/host.lux @@ -36,7 +36,7 @@ (#private bar A) (#private baz java.lang.Object) ## Methods - (#public [] (new {value A}) [] + (#public [] (new [value A]) [] (exec (:= .foo true) (:= .bar value) (:= .baz "") -- cgit v1.2.3