From 201a5f0e6f2376a530a65a1bf50ce14d35629fd4 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 27 Oct 2014 19:58:11 -0600
Subject: [PATCH] compiler/zo-marshal: allow extflonum literals

---
 pkgs/compiler-pkgs/compiler-lib/compiler/zo-marshal.rkt | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/pkgs/compiler-pkgs/compiler-lib/compiler/zo-marshal.rkt b/pkgs/compiler-pkgs/compiler-lib/compiler/zo-marshal.rkt
index 38371c54a1..c241013d04 100644
--- a/pkgs/compiler-pkgs/compiler-lib/compiler/zo-marshal.rkt
+++ b/pkgs/compiler-pkgs/compiler-lib/compiler/zo-marshal.rkt
@@ -11,7 +11,8 @@
          racket/function
          racket/pretty
          racket/path
-         racket/set)
+         racket/set
+         racket/extflonum)
 
 (provide/contract
  [zo-marshal (compilation-top? . -> . bytes?)]
@@ -965,7 +966,8 @@
        [(or (? path?) ; XXX Why not use CPT_PATH?
             (? regexp?)
             (? byte-regexp?)
-            (? number?))
+            (? number?)
+            (? extflonum?))
         (out-byte CPT_QUOTE out)
         (define s (open-output-bytes))
         (parameterize