25 lines
487 B
Racket
25 lines
487 B
Racket
#lang racket
|
|
|
|
(require "lang/parser.rkt")
|
|
(error-print-source-location #t)
|
|
|
|
(require (submod "bracket.rkt" symbolic-application)
|
|
(submod "bracket.rkt" bracket)
|
|
"unparse.rkt")
|
|
|
|
(provide (all-from-out racket)
|
|
unparse)
|
|
(provide (all-defined-out)
|
|
(for-syntax #%module-begin)
|
|
#%module-begin)
|
|
|
|
(define-syntax (DeclareVars stx)
|
|
(syntax-case stx ()
|
|
[(_ sym ...)
|
|
#'(begin
|
|
(define sym 'sym) ...
|
|
(set! sym 'sym) ...)]))
|
|
|
|
|
|
|