From 0190c3e1df6a139d3aa4722eec1b846416b1403c Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 6 Aug 2017 16:55:17 -0700 Subject: [PATCH] refactor top --- pollen/private/ts.rktd | 2 +- pollen/top.rkt | 12 ++++++------ 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 62b9a74..2b580ce 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1502063629 +1502063717 diff --git a/pollen/top.rkt b/pollen/top.rkt index 1501288..1939d80 100644 --- a/pollen/top.rkt +++ b/pollen/top.rkt @@ -8,12 +8,12 @@ ;; To suppress this behavior, use def/c to wrap any name. ;; If that name isn't already defined, you'll get the usual syntax error. -(define-syntax-rule (top~ . id) - (make-default-tag-function 'id)) +(define-syntax-rule (top~ . ID) + (make-default-tag-function 'ID)) (define-syntax (def/c stx) (syntax-case stx () - [(_ x) - (if (identifier-binding #'x ) - #'x - #'(#%top . x))])) \ No newline at end of file + [(_ X) + (if (identifier-binding #'X ) + #'X + #'(#%top . X))])) \ No newline at end of file