suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add honu function

Browse Source
This commit is contained in:
Jon Rafkind 2010-07-16 11:05:14 -06:00
parent 32227e391d
commit 00989ef01b
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/honu/private/function.honu Normal file
View File

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