suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

compiler/zo-marshal: allow extflonum literals

Browse Source
This commit is contained in:
Matthew Flatt 2014-10-27 19:58:11 -06:00
parent 35a762b556
commit 201a5f0e6f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/compiler-pkgs/compiler-lib/compiler/zo-marshal.rkt
View File

@ -11,7 +11,8 @@
racket/function racket/function
racket/pretty racket/pretty
racket/path racket/path
racket/set) racket/set
racket/extflonum)
(provide/contract (provide/contract
[zo-marshal (compilation-top? . -> . bytes?)] [zo-marshal (compilation-top? . -> . bytes?)]
@ -965,7 +966,8 @@
[(or (? path?) ; XXX Why not use CPT_PATH? [(or (? path?) ; XXX Why not use CPT_PATH?
(? regexp?) (? regexp?)
(? byte-regexp?) (? byte-regexp?)
(? number?)) (? number?)
(? extflonum?))
(out-byte CPT_QUOTE out) (out-byte CPT_QUOTE out)
(define s (open-output-bytes)) (define s (open-output-bytes))
(parameterize (parameterize