From 3053fd79bc6ae42415298ee056a268dc2c9b690c Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sun, 26 Jun 2022 12:55:04 -0400 Subject: New "parser" hierarchy. [Part 4] --- stdlib/source/test/lux.lux | 27 +++++++++++++-------------- 1 file changed, 13 insertions(+), 14 deletions(-) (limited to 'stdlib/source/test/lux.lux') diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux index 35ba915da..7f9d94809 100644 --- a/stdlib/source/test/lux.lux +++ b/stdlib/source/test/lux.lux @@ -11,9 +11,7 @@ ["[0]" io] ["[0]" maybe (.use "[1]#[0]" functor)] [concurrency - ["[0]" atom (.only Atom)]] - [parser - ["<[0]>" code]]] + ["[0]" atom (.only Atom)]]] [data ["[0]" product] ["[0]" bit (.use "[1]#[0]" equivalence)] @@ -27,8 +25,9 @@ ["[0]" macro (.only) [syntax (.only syntax)] ["^" pattern] - ["[0]" code (.use "[1]#[0]" equivalence)] - ["[0]" template]] + ["[0]" template] + ["[0]" code (.use "[1]#[0]" equivalence) + ["<[1]>" \\parser]]] ["[0]" math ["[0]" random (.use "[1]#[0]" functor)] [number @@ -464,39 +463,39 @@ []] [(.require [' - [ ']]) + [ ']]) ("lux def module" [[ ]]) [( )]] [(.require ["[0]" ' - ["[0]" ']]) + ["[0]" ']]) ("lux def module" [[ ] [ ]]) [( ) ( )]] [(.require ["[0]" ' - ["[1]" ']]) + ["[1]" ']]) ("lux def module" [[ ]]) [( )]] [(.require ["[0]" ' - ["[1]" ' - ["[2]" ']]]) + ["[1]" ' + ["[2]" ']]]) ("lux def module" [[ ]]) [( )]] [(.require [' - ["[0]" ' - ["[0]" ']]]) + ["[0]" ' + ["[0]" ']]]) ("lux def module" [[ ] [ ]]) [( ) ( )]] [(.require ["[0]" ' - [' - ["[0]" <\\>']]]) + [' + ["[0]" <\\>']]]) ("lux def module" [[ ] [ <\\>]]) [( ) -- cgit v1.2.3