diff options
| author | vyzo <vyzo@hackzen.org> | 2024-02-23 16:38:38 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-02-23 09:38:38 -0500 |
| commit | 1ddc3ede30a21e9ababf0acdd0100a14b95c8ff2 (patch) | |
| tree | f5dba3e014d12a39a5d020e72c8d0701319b94ce | |
| parent | 88e41b0295a766a1a9165c03bf598b92cccc2821 (diff) | |
fix identifier bug in interface macro (#1131)
:man_facepalming:
| -rw-r--r-- | src/std/interface.ss | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/std/interface.ss b/src/std/interface.ss index 85e2821a..b4fc81e6 100644 --- a/src/std/interface.ss +++ b/src/std/interface.ss @@ -505,7 +505,7 @@ (genident #'klass))) (descriptor (stx-identifier #'name #'name "::interface")) (make (stx-identifier #'name "make-" #'name)) - (make (stx-identifier #'name "try-" #'name)) + (try-make (stx-identifier #'name "try-" #'name)) (predicate (stx-identifier #'name #'name "?")) (instance-predicate (stx-identifier #'name "is-" #'name "?")) ((mixin ...) @@ -591,7 +591,7 @@ implementation-methods: method-impl unchecked-implementation-methods: unchecked-impl) info) - (lp #'rest [#'id type descriptor constructor try-constructor predicate satisfies-predicate method-impl ... (if unchecked? unchecked-impl []) ...])))) + (lp #'rest [#'id type descriptor constructor try-constructor predicate satisfies-predicate method-impl ... (if unchecked? unchecked-impl []) ... ids ...])))) (_ (cons begin: ids))))))) (syntax-case stx () |