scheme' -> racket'.

original commit: 5295e143a31168ac08cd65503f7be5dcf8332f08
This commit is contained in:
Eli Barzilay 2011-09-06 14:27:42 -04:00
parent 5861d07330
commit 2bfd246647
7 changed files with 11 additions and 11 deletions

View File

@ -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>)))

View File

@ -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]

View File

@ -1,4 +1,4 @@
#lang scheme/base #lang racket/base
(provide render) (provide render)

View File

@ -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))))

View File

@ -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

View File

@ -1,4 +1,4 @@
#lang scheme/base #lang racket/base
;; Struct definitions for the profiler ;; Struct definitions for the profiler

View File

@ -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