clear errors
parent
2f21295d1f
commit
ffdb169364
@ -1,4 +1,4 @@
|
||||
#lang info
|
||||
|
||||
(define scribblings '(("scribblings/quad.scrbl" (multi-page))))
|
||||
(define scribblings '(("scribblings/quad.scrbl" ())))
|
||||
(define compile-omit-paths '("tests.rkt" "tests-ocm.rkt"))
|
||||
|
@ -1,19 +0,0 @@
|
||||
#lang racket/base
|
||||
(require (for-syntax racket/base) pollen/tag)
|
||||
(provide def/c (rename-out (top~ #%top)))
|
||||
|
||||
;; 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)
|
||||
;; 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 (def/c stx)
|
||||
(syntax-case stx ()
|
||||
[(_ x)
|
||||
(if (identifier-binding #'x )
|
||||
#'x
|
||||
#'(#%top . x))]))
|
@ -1 +0,0 @@
|
||||
#lang racket
|
Loading…
Reference in New Issue