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

Minor cleanups to compiler.

Browse Source
This commit is contained in:
Eric Dobson 2013-12-13 21:48:15 -08:00
parent 3cecb753a9
commit 10fa612681
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
racket/collects/compiler/cm.rkt
View File

@ -254,7 +254,7 @@
(define (get-source-sha1 p) (define (get-source-sha1 p)
(with-handlers ([exn:fail:filesystem? (lambda (exn) (with-handlers ([exn:fail:filesystem? (lambda (exn)
(and (regexp-match? #rx#"[.]rkt$" (path->bytes p)) (and (regexp-match? #rx#"[.]rkt$" p)
(get-source-sha1 (path-replace-suffix p #".ss"))))]) (get-source-sha1 (path-replace-suffix p #".ss"))))])
(call-with-input-file* p sha1))) (call-with-input-file* p sha1)))
@ -605,10 +605,9 @@
""))) "")))
(define (rkt->ss p) (define (rkt->ss p)
(let ([b (path->bytes p)]) (if (regexp-match? #rx#"[.]rkt$" p)
(if (regexp-match? #rx#"[.]rkt$" b)
(path-replace-suffix p #".ss") (path-replace-suffix p #".ss")
p))) p))
(define (compile-root mode roots path0 up-to-date read-src-syntax sha1-only? seen) (define (compile-root mode roots path0 up-to-date read-src-syntax sha1-only? seen)
(define orig-path (simple-form-path path0)) (define orig-path (simple-form-path path0))
@ -687,7 +686,7 @@
(unless (eq? main-path alt-path) (unless (eq? main-path alt-path)
(hash-set! up-to-date alt-path stamp)) (hash-set! up-to-date alt-path stamp))
stamp)]))]))) stamp)]))])))
(or (and up-to-date (hash-ref up-to-date orig-path #f)) (or (hash-ref up-to-date orig-path #f)
(let ([v ((manager-skip-file-handler) orig-path)]) (let ([v ((manager-skip-file-handler) orig-path)])
(and v (and v
(hash-set! up-to-date orig-path v) (hash-set! up-to-date orig-path v)