scheme' ->
racket'.
original commit: 5295e143a31168ac08cd65503f7be5dcf8332f08
This commit is contained in:
parent
5861d07330
commit
2bfd246647
|
@ -1,10 +1,10 @@
|
||||||
#lang scheme/base
|
#lang racket/base
|
||||||
|
|
||||||
;; Analyzer for the sampler results
|
;; Analyzer for the sampler results
|
||||||
|
|
||||||
(provide analyze-samples)
|
(provide analyze-samples)
|
||||||
|
|
||||||
(require "structs.rkt" "utils.rkt" scheme/list)
|
(require "structs.rkt" "utils.rkt" racket/list)
|
||||||
|
|
||||||
(define-syntax-rule (with-hash <hash> <key> <expr>)
|
(define-syntax-rule (with-hash <hash> <key> <expr>)
|
||||||
(hash-ref! <hash> <key> (lambda () <expr>)))
|
(hash-ref! <hash> <key> (lambda () <expr>)))
|
||||||
|
|
|
@ -1,10 +1,10 @@
|
||||||
#lang scheme/base
|
#lang racket/base
|
||||||
|
|
||||||
(provide profile-thunk profile)
|
(provide profile-thunk profile)
|
||||||
|
|
||||||
(require "sampler.rkt" "analyzer.rkt"
|
(require "sampler.rkt" "analyzer.rkt"
|
||||||
(prefix-in text: "render-text.rkt")
|
(prefix-in text: "render-text.rkt")
|
||||||
(for-syntax scheme/base))
|
(for-syntax racket/base))
|
||||||
|
|
||||||
(define (profile-thunk thunk
|
(define (profile-thunk thunk
|
||||||
#:delay [delay 0.05]
|
#:delay [delay 0.05]
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
#lang scheme/base
|
#lang racket/base
|
||||||
|
|
||||||
(provide render)
|
(provide render)
|
||||||
|
|
||||||
|
|
|
@ -1,8 +1,8 @@
|
||||||
#lang at-exp scheme/base
|
#lang at-exp racket/base
|
||||||
|
|
||||||
(provide render)
|
(provide render)
|
||||||
|
|
||||||
(require "structs.rkt" "analyzer.rkt" "utils.rkt" scheme/list)
|
(require "structs.rkt" "analyzer.rkt" "utils.rkt" racket/list)
|
||||||
|
|
||||||
(define (f:msec msec)
|
(define (f:msec msec)
|
||||||
(number->string (round (inexact->exact msec))))
|
(number->string (round (inexact->exact msec))))
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
#lang scheme/base
|
#lang racket/base
|
||||||
|
|
||||||
;; The core profiler sample collector
|
;; The core profiler sample collector
|
||||||
;; (This module is a private tool for collecting profiling data, and should not
|
;; (This module is a private tool for collecting profiling data, and should not
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
#lang scheme/base
|
#lang racket/base
|
||||||
|
|
||||||
;; Struct definitions for the profiler
|
;; Struct definitions for the profiler
|
||||||
|
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
#lang scheme/base
|
#lang racket/base
|
||||||
|
|
||||||
(require "structs.rkt" scheme/list scheme/nest)
|
(require "structs.rkt" racket/list)
|
||||||
|
|
||||||
;; Format a percent number, possibly doing the division too. If we do the
|
;; Format a percent number, possibly doing the division too. If we do the
|
||||||
;; division, then be careful: if we're dividing by zero, then make the result
|
;; division, then be careful: if we're dividing by zero, then make the result
|
||||||
|
|
Loading…
Reference in New Issue
Block a user