LLVM literal float representation from Chez Scheme

omg.scm

(define (float->hex fl)
  (string-append "0x"
                 (with-output-to-string
                   (lambda ()
                     (write-ieee-float32 fl
                                         (make-output-port
                                          (lambda (m . args)
                                            (case m
                                              ((write-char)
                                               (format #t "~X" (char->integer (car args)))))) (make-string 0))
                                         'big-endian
                                         ))) "00000000"  ))