You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
pollen/top.rkt

23 lines
686 B
Racket

#lang racket/base
11 years ago
11 years ago
;; Changes the default behavior of #%top.
;; Unbound identifiers are allowed, and treated as the
;; tag in a txexpr (with the rest of the expression treated as the body)
11 years ago
;; To suppress this behavior, use def/c to wrap any name.
11 years ago
;; If that name isn't already defined, you'll get the usual syntax error.
(require (for-syntax racket/base) pollen/tag)
11 years ago
11 years ago
(provide (except-out (all-defined-out) top~)
(rename-out (top~ #%top)))
(define-syntax (top~ stx)
(syntax-case stx ()
[(_ . id) #'(make-default-tag-function 'id)]))
11 years ago
(define-syntax (def/c stx)
(syntax-case stx ()
[(_ x)
(if (identifier-binding #'x )
#'x
#'(#%top . x))]))