mes/tests/read.test

#! /bin/sh
# -*-scheme-*-
# ***REMOVE THIS BLOCK COMMENT INITIALLY***
MES=${MES-$(dirname $0)/../src/mes}
#export MES_ARENA=${MES_ARENA-40000}
$MES $MES_FLAGS "$@" < $0
exit $?
!#

0
cons
(cons 0 1)
(display 0) (newline)
#t
#f
(display #t) (newline)
(display #f) (newline)
'foo
(display 'foo) (newline)
(display #o77) (newline)
(display #o-6) (newline)
(display #x16) (newline)
(display #x-16) (newline)
(display #\A) (newline)
(display #\newline) (newline)
#\alarm
#\backspace
#\tab
#\newline
#\vtab
#\page
#\return
#\space
(display "\"")
(display "\\")
(display "\\\"\"\\")
(display 'foo)(newline)
(display '(foo))(newline)
(display '('foo))(newline)
(display (cdr '(car . cdr))) (newline)
(display "foo bar") (newline)
;;barf
#!
barf
!#
#|
burp
|#
#;(bla) (display "must see!\n")
(display
  (lambda (x)
   #;()#t)
  )
(display #(0 1 2)) (newline)
(display (list '(foo
            #! boo !#
            ;;(bb 4)
            )
          ))
(newline)
;; TODO: syntax, unsyntax, unsyntax-splicing