22 lines
498 B
Racket
22 lines
498 B
Racket
|
#lang racket/base
|
||
|
|
||
|
(require "../main.rkt")
|
||
|
|
||
|
(require racket/match)
|
||
|
(require racket/set)
|
||
|
(require racket/pretty)
|
||
|
|
||
|
(require rackunit)
|
||
|
|
||
|
(define P #<<ENDDOC
|
||
|
{
|
||
|
key: value
|
||
|
# example of a comment at the end of a dictionary
|
||
|
}
|
||
|
# example of a comment at the end of the input file
|
||
|
ENDDOC
|
||
|
)
|
||
|
|
||
|
(parameterize ((pretty-print-columns 80)) (write-pexpr (string->pexprs P #:read-syntax? #t)) (newline))
|
||
|
(parameterize ((pretty-print-columns 10)) (write-pexpr (string->pexprs P #:read-syntax? #t)) (newline))
|