(define checkRangeOfReal? 
  (lambda (x min max)
    (cond 
      ((not (real? x)) #f)
      ((< x min) #f)
      ((> x max) #f)
      (else #t)
    )
  )
)


;============== Unit Tests ======================
(load "test.scm")
(define msg "checkRangeOfReal?")
(test  msg (checkRangeOfReal? 3.14 3 4) #t)
(test  msg (checkRangeOfReal? 3.14 4 3) #f)
(test  msg (checkRangeOfReal? 3.14 4 5) #f)
(test  msg (checkRangeOfReal? 3.14 2 3) #f)
(test  msg (checkRangeOfReal? 3+4i -100 100) #f)