From 0c0a78606f716199492dd47e600237d5720915f9 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 19 Nov 2018 18:06:13 -0800 Subject: [PATCH] try --- pollen/private/ts.rktd | 2 +- pollen/setup.rkt | 4 +++- pollen/top.rkt | 11 ++++++++--- 3 files changed, 12 insertions(+), 5 deletions(-) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index b4f930e..6ee93b1 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1542295809 +1542679573 diff --git a/pollen/setup.rkt b/pollen/setup.rkt index 48b023c..8f28bd4 100644 --- a/pollen/setup.rkt +++ b/pollen/setup.rkt @@ -132,4 +132,6 @@ (define-settable poly-targets '(html)) ; current target applied to multi-output source files (define+provide current-poly-target (make-parameter (car (poly-targets)))) -(define-settable index-pages '("index.html")) \ No newline at end of file +(define-settable index-pages '("index.html")) + +(define-settable racket-style-top #f) \ No newline at end of file diff --git a/pollen/top.rkt b/pollen/top.rkt index cc703a6..3aab6c8 100644 --- a/pollen/top.rkt +++ b/pollen/top.rkt @@ -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 ()