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
|
||||
|
||||
(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>)
|
||||
(hash-ref! <hash> <key> (lambda () <expr>)))
|
||||
|
|
|
@ -1,10 +1,10 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
(provide profile-thunk profile)
|
||||
|
||||
(require "sampler.rkt" "analyzer.rkt"
|
||||
(prefix-in text: "render-text.rkt")
|
||||
(for-syntax scheme/base))
|
||||
(for-syntax racket/base))
|
||||
|
||||
(define (profile-thunk thunk
|
||||
#:delay [delay 0.05]
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
(provide render)
|
||||
|
||||
|
|
|
@ -1,8 +1,8 @@
|
|||
#lang at-exp scheme/base
|
||||
#lang at-exp racket/base
|
||||
|
||||
(provide render)
|
||||
|
||||
(require "structs.rkt" "analyzer.rkt" "utils.rkt" scheme/list)
|
||||
(require "structs.rkt" "analyzer.rkt" "utils.rkt" racket/list)
|
||||
|
||||
(define (f:msec msec)
|
||||
(number->string (round (inexact->exact msec))))
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
;; The core profiler sample collector
|
||||
;; (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
|
||||
|
||||
|
|
|
@ -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
|
||||
;; division, then be careful: if we're dividing by zero, then make the result
|
||||
|
|
Loading…
Reference in New Issue
Block a user