use honu/core. make a convenient macro for providing stuff

This commit is contained in:
Jon Rafkind 2010-07-16 11:23:15 -06:00
parent 00989ef01b
commit 9c30bda973
2 changed files with 19 additions and 3 deletions

View File

@ -2,7 +2,23 @@
(require (prefix-in racket: racket/base))
;; require's and provide's a module
(define-syntax-rule (provide-module module ...)
(begin
(begin
(racket:require module)
(racket:provide [all-from-out module]))
...))
(provide-module "core/main.rkt"
"private/struct.honu"
"private/function.honu")
#|
(racket:require "core/main.rkt"
"private/struct.honu")
"private/struct.honu"
"private/function.honu")
(racket:provide [all-from-out "core/main.rkt"])
(racket:provide [all-from-out "private/struct.honu"])
(racket:provide [all-from-out "private/struct.honu"
"private/function.honu"])
|#

View File

@ -1,4 +1,4 @@
#lang honu
#lang honu/core
provide function;
macro function ()