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

cs: restore cross-module optimization

Browse Source 
A backwards `if` in a7988c3813 disabled cross-module optimization.
This commit is contained in:
Matthew Flatt 2019-04-24 10:39:05 -06:00
parent 20e669f478
commit d69f5cf00f
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/src/cs/linklet.sls
View File

@ -528,9 +528,8 @@
;; Callback to get a specific linklet for a ;; Callback to get a specific linklet for a
;; given import: ;; given import:
(if get-import (if get-import
(lambda (key) (values #f #f #f)) (lambda (key) (lookup-linklet-or-instance get-import key))
(lambda (key) (lambda (key) (values #f #f #f)))
(lookup-linklet-or-instance get-import key)))
import-keys)) import-keys))
(define impl-lam/lifts (define impl-lam/lifts
(lift-in-schemified-linklet (show pre-lift-on? "pre-lift" impl-lam))) (lift-in-schemified-linklet (show pre-lift-on? "pre-lift" impl-lam)))

3
racket/src/cs/rumble/time.ss
View File

@ -95,8 +95,7 @@
(sstats-gc-cpu stats))))))))))) (sstats-gc-cpu stats)))))))))))
(define (current-gc-milliseconds) (define (current-gc-milliseconds)
(let ([stats (statistics)]) (inexact->exact (floor (time->ms (#%$gc-cpu-time)))))
(inexact->exact (floor (time->ms (sstats-gc-cpu stats))))))
(define (current-milliseconds) (define (current-milliseconds)
(inexact->exact (floor (current-inexact-milliseconds)))) (inexact->exact (floor (current-inexact-milliseconds))))