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.
13 lines
476 B
Racket
13 lines
476 B
Racket
#lang racket/base
|
|
(require (for-syntax racket/base) racket/list sugar/debug "quads.rkt" "error.rkt")
|
|
(provide (except-out (all-from-out racket/base) #%module-begin)
|
|
(all-from-out racket/list sugar/debug "quads.rkt" "error.rkt")
|
|
(rename-out [~module-begin #%module-begin])
|
|
(for-syntax (all-from-out racket/base)))
|
|
|
|
(define-syntax-rule (~module-begin . args)
|
|
(#%module-begin
|
|
. args))
|
|
|
|
(module reader syntax/module-reader
|
|
#:language 'quad/dev) |