diff --git a/collects/honu/main.rkt b/collects/honu/main.rkt index cb1c1ccebe..865b3316ec 100644 --- a/collects/honu/main.rkt +++ b/collects/honu/main.rkt @@ -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"]) +|# diff --git a/collects/honu/private/function.honu b/collects/honu/private/function.honu index e6ff50ad47..7160f60c9f 100644 --- a/collects/honu/private/function.honu +++ b/collects/honu/private/function.honu @@ -1,4 +1,4 @@ -#lang honu +#lang honu/core provide function; macro function ()