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

schemify: fix srcloc marshaling

Browse Source 
Partly fix it, anyway. More is needed in general to reduce
recording build-time paths in compiled code.
This commit is contained in:
Matthew Flatt 2018-11-22 19:31:46 -07:00
parent 19e709d27b
commit f47f685af9
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
racket/src/schemify/quoted.rkt
View File

@ -16,6 +16,7 @@
[(impersonator? q) #t] ; i.e., strip impersonators when serializaing [(impersonator? q) #t] ; i.e., strip impersonators when serializaing
[(path? q) #t] [(path? q) #t]
[(regexp? q) #t] [(regexp? q) #t]
[(srcloc? q) #t]
[(byte-regexp? q) #t] [(byte-regexp? q) #t]
[(keyword? q) #t] [(keyword? q) #t]
[(hash? q) #t] [(hash? q) #t]

7
racket/src/schemify/serialize.rkt
View File

@ -153,6 +153,13 @@
',(path-convention-type q))] ',(path-convention-type q))]
[(regexp? q) [(regexp? q)
`(,(if (pregexp? q) 'pregexp 'regexp) ,(object-name q))] `(,(if (pregexp? q) 'pregexp 'regexp) ,(object-name q))]
[(srcloc? q)
`(#%app srcloc
,(make-construct (srcloc-source q))
,(make-construct (srcloc-line q))
,(make-construct (srcloc-column q))
,(make-construct (srcloc-position q))
,(make-construct (srcloc-span q)))]
[(byte-regexp? q) [(byte-regexp? q)
`(,(if (byte-pregexp? q) 'byte-pregexp 'byte-regexp) ,(object-name q))] `(,(if (byte-pregexp? q) 'byte-pregexp 'byte-regexp) ,(object-name q))]
[(keyword? q) [(keyword? q)