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

Fixing precomps on OS X

Browse Source
This commit is contained in:
Jay McCarthy 2010-05-21 12:13:40 -06:00
parent 776926141f
commit 3c19657848
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/compiler/private/xform.rkt
View File

@ -477,11 +477,12 @@
(and precompiled-header
(open-input-file (change-suffix precompiled-header #".e"))))
(define re:boring #rx#"^(?:(?:[ \t]*)|(?:# .*)|(?:#line .*)|(?:#pragma implementation.*)|(?:#pragma interface.*)|(?:#pragma once)|(?:#pragma warning.*))$")
(define re:uninteresting #rx#"^(?:(?:[ \t]*)|(?:# .*)|(?:#line .*)|(?:#pragma implementation.*)|(?:#pragma interface.*)|(?:#pragma once)|(?:#pragma GCC diagnostic.*)|(?:#pragma warning.*))$")
(define (skip-to-interesting-line p)
(let ([l (read-bytes-line p 'any)])
(cond
[(eof-object? l) l]
[(regexp-match-positions re:boring l) (skip-to-interesting-line p)]
[(regexp-match-positions re:uninteresting l) (skip-to-interesting-line p)]
[else l])))
(when recorded-cpp-in