suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/honu/main.rkt
View File

@ -2,7 +2,23 @@
(require (prefix-in racket: racket/base)) (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" (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 "core/main.rkt"])
(racket:provide [all-from-out "private/struct.honu"]) (racket:provide [all-from-out "private/struct.honu"
"private/function.honu"])
|#

2
collects/honu/private/function.honu
View File

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