From 00989ef01bd5f2a52c30679cbcb28da51e712f95 Mon Sep 17 00:00:00 2001
From: Jon Rafkind <rafkind@racket-lang.org>
Date: Fri, 16 Jul 2010 11:05:14 -0600
Subject: [PATCH] add honu function

---
 collects/honu/private/function.honu | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 collects/honu/private/function.honu

diff --git a/collects/honu/private/function.honu b/collects/honu/private/function.honu
new file mode 100644
index 0000000000..e6ff50ad47
--- /dev/null
+++ b/collects/honu/private/function.honu
@@ -0,0 +1,9 @@
+#lang honu
+
+provide function;
+macro function ()
+  { _ name:identifier (args:identifier ...) { body ... } }
+  { #sx scheme:syntax #sx(define (name_result args_result ...)
+                         (honu-unparsed-begin body ...)) }
+  { _ (args:identifier ...) { body ... }}
+  { #sx scheme:syntax #sx(lambda (args_result ...) (honu-unparsed-begin body ...)) }