Skip to content

Commit 2045eee

Browse files
Copilotjackfirth
andcommitted
Address code review feedback
Co-authored-by: jackfirth <[email protected]>
1 parent 09a6d15 commit 2045eee

File tree

1 file changed

+1
-3
lines changed

1 file changed

+1
-3
lines changed

private/syntax-path.rkt

Lines changed: 1 addition & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -244,8 +244,6 @@
244244

245245

246246
(define (string->syntax-path str)
247-
(unless (string? str)
248-
(raise-argument-error 'string->syntax-path "string?" str))
249247
(unless (string-prefix? str "/")
250248
(raise-arguments-error
251249
'string->syntax-path
@@ -264,7 +262,7 @@
264262
(unless (and num (exact-nonnegative-integer? num))
265263
(raise-arguments-error
266264
'string->syntax-path
267-
"syntax path string contains invalid element (must be non-negative integer)"
265+
"syntax path string contains invalid element (must be nonnegative integer)"
268266
"given" str
269267
"invalid element" part))
270268
num)])

0 commit comments

Comments
 (0)