whoops: don't want to do the precondition check twice

This commit is contained in:
Robby Findler 2015-11-28 16:27:21 -06:00
parent 8cc2e27ca7
commit 71d80bace5

View File

@ -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)])