diff options
Diffstat (limited to 'new-luxc/test/test/luxc/analyser/primitive.lux')
| -rw-r--r-- | new-luxc/test/test/luxc/analyser/primitive.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/new-luxc/test/test/luxc/analyser/primitive.lux b/new-luxc/test/test/luxc/analyser/primitive.lux index f291e2c7f..9c3c1acfe 100644 --- a/new-luxc/test/test/luxc/analyser/primitive.lux +++ b/new-luxc/test/test/luxc/analyser/primitive.lux @@ -1,7 +1,7 @@ (;module: lux (lux [io] - (control monad + (control [monad #+ do] pipe) (data [bool "B/" Eq<Bool>] [text "T/" Eq<Text>] @@ -31,7 +31,7 @@ %nat% r;nat %int% r;int %deg% r;deg - %real% r;real + %frac% r;frac %text% (r;text +5)] (with-expansions [<tests> (do-template [<desc> <type> <tag> <value> <analyser>] @@ -52,7 +52,7 @@ ["nat" Nat #~;Nat %nat% @;analyse-nat] ["int" Int #~;Int %int% @;analyse-int] ["deg" Deg #~;Deg %deg% @;analyse-deg] - ["real" Real #~;Real %real% @;analyse-real] + ["frac" Frac #~;Frac %frac% @;analyse-frac] ["text" Text #~;Text %text% @;analyse-text] )] ($_ seq |