(define false #f)

;; flo:+
;; fix:+ fix:> fix:>= fix:<=

(define flo:+ +)
(define fix:+ +)
(define fix:> >)
(define fix:>= >=)
(define fix:<= <=)

(define (round->exact n)
  (inexact->exact (round n)))
(define (floor->exact n)
  (inexact->exact (floor n)))
(define (ceiling->exact n)
  (inexact->exact (floor n)))

(define (graphics-device? window)
  #t)					; yeah, yeah ...

(define (picture-display window picture dummy-1 dummy-2)
  (picture->snip picture))