tests/012/readprint.tl


1
2
3
4
5
6
7
8
9
10
11
12
13

(load "../common")

(mstest
  '[ . a] "[. a]"
  '[. a] "[. a]"
  '[ . @a] "[. @a]"
  '[. @a] "[. @a]"
  '[] "[]"
  '[. 3] "[. 3]"
  '[3 . 4] "[3 . 4]"
  '(dwim) "[]"
  '(dwim . 3) "[. 3]"
  '(dwim 3 . 4) "[3 . 4]")