dev-top-inverter
Matthew Butterick 6 years ago
parent 69df80d115
commit 0c0a78606f

@ -1 +1 @@
1542295809
1542679573

@ -133,3 +133,5 @@
(define+provide current-poly-target (make-parameter (car (poly-targets))))
(define-settable index-pages '("index.html"))
(define-settable racket-style-top #f)

@ -1,9 +1,14 @@
#lang racket/base
(require (for-syntax racket/base) pollen/tag)
(require (for-syntax racket/base pollen/setup) pollen/tag)
(provide def/c (rename-out (top~ #%top)))
(define-syntax-rule (top~ . ID)
(#%app make-default-tag-function 'ID))
(define-syntax (top~ stx)
(syntax-case stx ()
[(_ . ID)
(setup:racket-style-top)
#'(#%top . ID)]
[(_ . ID)
#'(#%app make-default-tag-function 'ID)]))
(define-syntax (def/c stx)
(syntax-case stx ()

Loading…
Cancel
Save