diff --git a/racket/src/cs/linklet.sls b/racket/src/cs/linklet.sls index b462807183..7576e7880c 100644 --- a/racket/src/cs/linklet.sls +++ b/racket/src/cs/linklet.sls @@ -528,9 +528,8 @@ ;; Callback to get a specific linklet for a ;; given import: (if get-import - (lambda (key) (values #f #f #f)) - (lambda (key) - (lookup-linklet-or-instance get-import key))) + (lambda (key) (lookup-linklet-or-instance get-import key)) + (lambda (key) (values #f #f #f))) import-keys)) (define impl-lam/lifts (lift-in-schemified-linklet (show pre-lift-on? "pre-lift" impl-lam))) diff --git a/racket/src/cs/rumble/time.ss b/racket/src/cs/rumble/time.ss index 5c1e448e44..98af6f3d85 100644 --- a/racket/src/cs/rumble/time.ss +++ b/racket/src/cs/rumble/time.ss @@ -95,8 +95,7 @@ (sstats-gc-cpu stats))))))))))) (define (current-gc-milliseconds) - (let ([stats (statistics)]) - (inexact->exact (floor (time->ms (sstats-gc-cpu stats)))))) + (inexact->exact (floor (time->ms (#%$gc-cpu-time))))) (define (current-milliseconds) (inexact->exact (floor (current-inexact-milliseconds))))