compiler/zo-marshal: allow extflonum literals

2014-10-27 19:58:11 -06:00 · 2014-10-27 19:58:11 -06:00 · 201a5f0e6f
commit 201a5f0e6f
parent 35a762b556
1 changed files with 4 additions and 2 deletions
--- 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