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 ...)) }