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)