diff --git a/top.rkt b/top.rkt index e2610eb..ac8a4ad 100644 --- a/top.rkt +++ b/top.rkt @@ -11,13 +11,10 @@ (provide (except-out (all-defined-out) top~) (rename-out (top~ #%top))) -;; Allow tag attributes to be specified as follows: -;; @foo['shape: "square" 'color: "red"]{hello} (define-syntax (top~ stx) (syntax-case stx () [(_ . id) #'(make-tag-function 'id)])) - (define-syntax (def/c stx) (syntax-case stx () [(_ x)