11 lines
192 B
Plaintext
11 lines
192 B
Plaintext
#lang honu
|
|
|
|
require (forSyntax "struct-patterns.honu");
|
|
|
|
provide struct;
|
|
macro struct () {
|
|
_ name {field:structField ...} ;
|
|
} {
|
|
schemeSyntax#sx(honu-struct name (field_name_result ...))
|
|
}
|