10 lines
356 B
Plaintext
10 lines
356 B
Plaintext
#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 ...)) }
|