Skip to content

Commit

Permalink
Regenerate tests
Browse files Browse the repository at this point in the history
  • Loading branch information
jackfirth committed Aug 22, 2024
1 parent 7435b8c commit b3c02c0
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion tests/benchmarks/list.rkt.out
Original file line number Diff line number Diff line change
Expand Up @@ -399,7 +399,8 @@
(define (remove-duplicates l [=? equal?] #:key [key #f])
;; `no-key' is used to optimize the case for long lists, it could be done for
;; shorter ones too, but that adds a ton of code to the result (about 2k).
(define-syntax-rule (no-key x) x)
(define-syntax-rule (no-key x)
x)
(unless (list? l)
(raise-argument-error 'remove-duplicates "list?" l))
(let* ([len (length l)]
Expand Down

0 comments on commit b3c02c0

Please sign in to comment.