From 46504f94d8512c9fe85d1c236c7e0cf225b8c490 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Sat, 3 Oct 2015 18:04:22 -0400 Subject: [PATCH] examples --- remix/exp/reader.rkt | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/remix/exp/reader.rkt b/remix/exp/reader.rkt index af88519..9f02b34 100644 --- a/remix/exp/reader.rkt +++ b/remix/exp/reader.rkt @@ -33,18 +33,21 @@ (check-false (read-cdot)) (testit* + ["(1 2 3)" (1 2 3)] ["[1 2 3]" (#%brackets 1 2 3)] ["{1 2 3}" (#%braces 1 2 3)] + ["|a.b|" a.b] ["a.b" (#%dot a b)] ["a .b" (#%dot a b)] ["a. b" (#%dot a b)] ["a . b" (#%dot a b)] ["1.a" (#%dot 1 a)] - ["1.2.a" (#%dot 1.2 a)] + ["#i1.2 .a" (#%dot 1.2 a)] ["1 .2.a" (#%dot 1 (#%dot 2 a))] - ["a.1.2" (#%dot a 1.2)] + ["a.#i1.2" (#%dot a 1.2)] ["a.b.c" (#%dot a (#%dot b c))] ["a.(b c)" (#%dot a (b c))] ["(a b).c" (#%dot (a b) c)] ["(a b).(c d)" (#%dot (a b) (c d))] - ["(a b).[3]" (#%dot (a b) (#%brackets 3))])) + ["(a b).[3]" (#%dot (a b) (#%brackets 3))] + ["({1})" ((#%braces 1))]))