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

fix reader graph-notation equivalence

Browse Source
This commit is contained in:
Matthew Flatt 2011-08-18 12:54:52 -06:00
parent 69929b7499
commit ab477b958c
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/scribblings/reference/reader-example.rkt
View File

@ -1,10 +1,14 @@
(module reader-example racket/base
(require scribble/struct
(only-in scribble/core
make-style
make-table-columns)
scribble/decode
scribble/manual
scribble/scheme
racket/class)
racket/class
(for-label racket/base))
(provide reader-examples
read-quote-table
@ -31,7 +35,10 @@
(list (make-flow
(list
(make-table
#f
(make-style #f (list (make-table-columns
(list (make-style #f '(baseline))
(make-style #f '(baseline))
(make-style #f '(baseline))))))
(map (lambda (s)
(list (as-flow (list spacer
(litchar s)))
@ -74,8 +81,10 @@
[(and (pair? v)
(eq? v (cdr v))
(eq? 1 (car v)))
(racketblock0 (let ([v (cons 1 #f)])
(set-cdr! v v) v))]
(racketblock0 (let* ([ph (make-placeholder #f)]
[v (cons 1 ph)])
(placeholder-set! ph v)
(make-reader-graph v)))]
[(pair? v) `(cons ,(loop (car v)) ,(loop (cdr v)))]
[(bytes? v) `(bytes ,@(map loop (bytes->list v)))]
[(char? v) `(integer->char ,(char->integer v))]