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.
26 lines
658 B
Racket
26 lines
658 B
Racket
9 years ago
|
#lang racket
|
||
|
|
(provide (except-out (all-from-out racket) #%module-begin)
|
||
|
|
(rename-out [loader-module-begin #%module-begin]))
|
||
|
|
|
||
|
|
#|
|
||
|
|
|
||
|
|
br/load makes it possible to invoke a quick #lang by its pathname (without installing it as a collection)
|
||
|
|
|
||
|
|
#lang br/load "path.rkt"
|
||
|
|
|
||
|
|
Should simply delegate the reader & semantics.
|
||
|
|
|
||
|
|
|#
|
||
|
|
|
||
|
|
(define-syntax-rule (loader-module-begin loadpath expr ...)
|
||
|
|
(#%module-begin
|
||
|
|
(module loader-module loadpath
|
||
|
|
expr ...)
|
||
|
|
(require 'loader-module)
|
||
|
|
|
||
|
|
(module reader racket/base
|
||
|
|
(require '(submod loadpath reader))
|
||
|
|
(provide (all-from-out '(submod loadpath reader))))))
|
||
|
|
|
||
|
|
(module reader syntax/module-reader
|
||
|
|
br/load)
|