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