suzanne.soy/remix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

examples

Browse Source
This commit is contained in:
Jay McCarthy 2015-10-03 18:04:22 -04:00
parent 5fec867f05
commit 46504f94d8
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
remix/exp/reader.rkt
View File

@ -33,18 +33,21 @@
(check-false (read-cdot)) (check-false (read-cdot))
(testit* (testit*
["(1 2 3)" (1 2 3)]
["[1 2 3]" (#%brackets 1 2 3)] ["[1 2 3]" (#%brackets 1 2 3)]
["{1 2 3}" (#%braces 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)]
["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.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))] ["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 (#%dot b c))]
["a.(b c)" (#%dot a (b c))] ["a.(b c)" (#%dot a (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).(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))]))