diff options
| author | vyzo <vyzo@hackzen.org> | 2024-02-08 23:02:14 +0200 |
|---|---|---|
| committer | vyzo <vyzo@hackzen.org> | 2024-02-08 23:05:57 +0200 |
| commit | e03fea272db853c47ca0cac2185d238b41d620c6 (patch) | |
| tree | fcba8b2e97d1d30a5189ca982e8e96c8c2a1535a | |
| parent | d4f432669ba96ebcebe623678bb92354da5def58 (diff) | |
fix macro invocationc3-supercharge
| -rw-r--r-- | src/std/protobuf/macros.ss | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/std/protobuf/macros.ss b/src/std/protobuf/macros.ss index ddb270d5..803da8b8 100644 --- a/src/std/protobuf/macros.ss +++ b/src/std/protobuf/macros.ss @@ -171,7 +171,7 @@ (() (reverse fields))))) (def (make-struct-def id fields) - (with-syntax* ((type-id (class-type-id id)) + (with-syntax* ((type-id (make-class-type-id id)) (id::t (format-id id "~a::t" id)) (id? (format-id id "~a?" id)) (make-id (format-id id "make-~a" id)) @@ -203,7 +203,6 @@ id: type-id constructor: :init! final: #t - struct: #t properties: '((transparent: . #t))) (defsyntax id (make-message-type-info @@ -215,7 +214,7 @@ super: [] struct?: #t final?: #t - conustructor-method: ':init! + constructor-method: ':init! type-descriptor: (quote-syntax id::t) constructor: (quote-syntax make-id) predicate: (quote-syntax id?) |