whoops: don't want to do the precondition check twice
This commit is contained in:
parent
8cc2e27ca7
commit
71d80bace5
|
@ -37,7 +37,7 @@
|
|||
(-version<? a b))
|
||||
|
||||
(define/version-inputs (version<=? a b)
|
||||
(or (equal? a b) (version<? a b)))
|
||||
(or (equal? a b) (-version<? a b)))
|
||||
|
||||
(define (-version<? a b)
|
||||
(let loop ([a (version->list a)] [b (version->list b)])
|
||||
|
|
Loading…
Reference in New Issue
Block a user