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+provide current-poly-target (make-parameter (car (poly-targets))))
(define-settable index-pages '("index.html")) (define-settable index-pages '("index.html"))
(define-settable racket-style-top #f)

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

Loading…
Cancel
Save