From 9c30bda973ae96d434baec8b41fc955d456f1c96 Mon Sep 17 00:00:00 2001
From: Jon Rafkind <rafkind@racket-lang.org>
Date: Fri, 16 Jul 2010 11:23:15 -0600
Subject: [PATCH] use honu/core. make a convenient macro for providing stuff

---
 collects/honu/main.rkt              | 20 ++++++++++++++++++--
 collects/honu/private/function.honu |  2 +-
 2 files changed, 19 insertions(+), 3 deletions(-)

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 ()