Skip to content

Commit 7526c24

Browse files
committed
Add mock-rackunit dependency
1 parent f6d9f76 commit 7526c24

File tree

2 files changed

+6
-3
lines changed

2 files changed

+6
-3
lines changed

knotty-lib/pattern.rkt

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -463,9 +463,11 @@
463463
(let* ([row-numbers (Rowmap-numbers rowmap)]
464464
[n (vector-length row-numbers)]
465465
[rowspecs-order
466-
((inst sort Index)
466+
;;((inst sort Index)
467+
((inst sort Natural)
467468
(range n) <
468-
#:key (λ ([j : Index]) (apply min (vector->list (vector-ref row-numbers j)))))]
469+
;;#:key (λ ([j : Index]) (apply min (vector->list (vector-ref row-numbers j)))))]
470+
#:key (λ ([j : Natural]) (apply min (vector->list (vector-ref row-numbers j)))))]
469471
[rowspecs~
470472
(for/vector
471473
([i (in-range n)]) : Rowspec

knotty/info.rkt

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -36,7 +36,8 @@
3636
"typed/rackunit"
3737
"named-arguments"
3838
"sxml"
39-
"scribble-lib"))
39+
"scribble-lib"
40+
"mock-racket"))
4041

4142
(define build-deps
4243
'("lazy"

0 commit comments

Comments
 (0)