pollen/pollen/top.rkt

#lang racket/base
(require (for-syntax racket/base pollen/setup) pollen/tag)
(provide def/c (rename-out (top~ #%top)))

(define-syntax (top~ stx)
  (syntax-case stx ()
    [(_ . ID)
     (setup:allow-unbound-ids)
     #'(#%app make-default-tag-function 'ID)]
    [(_ . ID)
     #'(def/c ID)]))

(define-syntax (def/c stx)
  (syntax-case stx ()
    [(_ ID) (identifier-binding #'ID) #'ID]
    [(_ ID) #'(#%top . ID)]))
switch to racket/base throughout; fix when/block; fix or/c false? ... contracts; improve file contracts, etc. 10 years ago			`#lang racket/base`
try 6 years ago			`(require (for-syntax racket/base pollen/setup) pollen/tag)`
refactoring for first stable release 8 years ago			`(provide def/c (rename-out (top~ #%top)))`
create pollen/top 10 years ago
try 6 years ago			`(define-syntax (top~ stx)`
			`(syntax-case stx ()`
			`[(_ . ID)`
mod name 6 years ago			`(setup:allow-unbound-ids)`
			`#'(#%app make-default-tag-function 'ID)]`
try 6 years ago			`[(_ . ID)`
mod name 6 years ago			`#'(def/c ID)]))`
add simplified notation for attributes in #%top 10 years ago
touchups 10 years ago			`(define-syntax (def/c stx)`
add simplified notation for attributes in #%top 10 years ago			`(syntax-case stx ()`
mod name 6 years ago			`[(_ ID) (identifier-binding #'ID) #'ID]`
			`[(_ ID) #'(#%top . ID)]))`