From b39b5075cb154c48113f25c5e4bc7ceea1d3b065 Mon Sep 17 00:00:00 2001 From: Noah Pederson Date: Sat, 28 Oct 2023 12:41:04 -0500 Subject: [PATCH] Fixes keyword method handling in interface macro --- src/std/interface.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/std/interface.ss b/src/std/interface.ss index b04998df4..1a4237e6f 100644 --- 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)