Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

17 lines (10 sloc) 0.308 kb
#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)
Jump to Line
Something went wrong with that request. Please try again.