Fixes keyword method handling in interface macro

mighty-gerbils · Oct 28, 2023 · b39b507 · b39b507
1 parent 33109cd
commit b39b507
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/std/interface.ss b/src/std/interface.ss
@@ -405,7 +405,7 @@
         ((kw (id default) . rest)
          (stx-keyword? #'kw)
          (lp #'rest (cons* #'(id absent-obj) #'kw args)))
-        ((kw (id . contract) .rest)
+        ((kw (id . contract) . rest)
          (stx-keyword? #'kw)
          (cond
           ((get-contract-default #'contract)
@@ -439,7 +439,7 @@
         ((kw (id default) . rest)
          (stx-keyword? #'kw)
          (lp #'rest (cons* #'(id default) #'kw args)))
-        ((kw (id . contract) .rest)
+        ((kw (id . contract) . rest)
          (stx-keyword? #'kw)
          (cond
           ((get-contract-default #'contract)