|
|
@ -1,15 +1,13 @@
|
|
|
|
#lang racket/base
|
|
|
|
#lang racket/base
|
|
|
|
(require racket/provide racket/list racket/string racket/format racket/match racket/port racket/function racket/provide
|
|
|
|
(require racket/provide racket/list racket/string racket/format racket/match racket/port racket/function racket/provide
|
|
|
|
br/define br/syntax br/datum br/debug br/cond br/list br/reader-utils racket/class racket/vector
|
|
|
|
br/define br/syntax br/datum br/debug br/cond br/list br/reader-utils br/module racket/class racket/vector
|
|
|
|
(for-syntax racket/base racket/syntax br/syntax br/debug br/define br/datum))
|
|
|
|
(for-syntax racket/base racket/syntax br/syntax br/debug br/define br/datum))
|
|
|
|
(provide (all-from-out racket/base)
|
|
|
|
(provide (all-from-out racket/base)
|
|
|
|
(all-from-out racket/list racket/string racket/format racket/match racket/port racket/function racket/provide
|
|
|
|
(all-from-out racket/list racket/string racket/format racket/match racket/port racket/function racket/provide
|
|
|
|
br/syntax br/datum br/debug br/cond br/list br/reader-utils racket/class racket/vector br/define)
|
|
|
|
br/syntax br/datum br/debug br/cond br/list br/reader-utils br/module racket/class racket/vector br/define)
|
|
|
|
(for-syntax (all-from-out racket/base racket/syntax br/syntax br/debug br/datum))
|
|
|
|
(for-syntax (all-from-out racket/base racket/syntax br/syntax br/debug br/datum))
|
|
|
|
(for-syntax caller-stx with-shared-id)) ; from br/define
|
|
|
|
(for-syntax caller-stx with-shared-id)) ; from br/define
|
|
|
|
|
|
|
|
|
|
|
|
;; todo: activate at-exp reader by default
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(provide evaluate)
|
|
|
|
(provide evaluate)
|
|
|
|
(define-macro (evaluate DATUM)
|
|
|
|
(define-macro (evaluate DATUM)
|
|
|
|
#'(begin
|
|
|
|
#'(begin
|
|
|
|