11 lines
265 B
Scheme
11 lines
265 B
Scheme
#lang scheme/base
|
|
(require "specs.ss")
|
|
|
|
(provide (rename-out [module-begin #%module-begin]))
|
|
|
|
(define-syntax-rule (module-begin . rest)
|
|
(#%module-begin
|
|
(provide register-specs!)
|
|
(define (register-specs! [param *specs*])
|
|
(process-specs 'rest param))))
|