You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
539 B
Racket
17 lines
539 B
Racket
#lang s-exp syntax/module-reader
|
|
quad/lang/quad
|
|
#:read quad-read
|
|
#:read-syntax quad-read-syntax
|
|
#:whole-body-readers? #t ;; need this to make at-reader work
|
|
(require scribble/reader)
|
|
|
|
(define (quad-read p)
|
|
(syntax->datum (quad-read-syntax (object-name p) p)))
|
|
|
|
(define (quad-read-syntax path-string p)
|
|
(define quad-at-reader (make-at-reader
|
|
#:command-char #\◊
|
|
#:syntax? #t
|
|
#:inside? #t))
|
|
(define source-stx (quad-at-reader path-string p))
|
|
source-stx) |