Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
17 lines (10 sloc) 308 Bytes
#lang s-exp "small-lang.rkt"
(require (rename-in (planet dyoo/chaining-compare) (chaining-compare compare)))
(printf "hi\n")
(compare (+ 1 1) < (+ 2 2) <= 5 < (* 2 3) < 7)
(printf "---\n")
;; We want the error messages to be very specific
#;(compare)
#;compare
(compare 3 < 3 < 4)
(compare 3 <= 3 < 4)