From 2bfd246647dc179d05a033b2883c462b73129fd7 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 6 Sep 2011 14:27:42 -0400 Subject: [PATCH] `scheme' -> `racket'. original commit: 5295e143a31168ac08cd65503f7be5dcf8332f08 --- collects/profile/analyzer.rkt | 4 ++-- collects/profile/main.rkt | 4 ++-- collects/profile/render-graphviz.rkt | 2 +- collects/profile/render-text.rkt | 4 ++-- collects/profile/sampler.rkt | 2 +- collects/profile/structs.rkt | 2 +- collects/profile/utils.rkt | 4 ++-- 7 files changed, 11 insertions(+), 11 deletions(-) diff --git a/collects/profile/analyzer.rkt b/collects/profile/analyzer.rkt index e114c4e..63880af 100644 --- a/collects/profile/analyzer.rkt +++ b/collects/profile/analyzer.rkt @@ -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-ref! (lambda () ))) diff --git a/collects/profile/main.rkt b/collects/profile/main.rkt index af10381..be53d1b 100644 --- a/collects/profile/main.rkt +++ b/collects/profile/main.rkt @@ -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] diff --git a/collects/profile/render-graphviz.rkt b/collects/profile/render-graphviz.rkt index 1aba7ce..8e063df 100644 --- a/collects/profile/render-graphviz.rkt +++ b/collects/profile/render-graphviz.rkt @@ -1,4 +1,4 @@ -#lang scheme/base +#lang racket/base (provide render) diff --git a/collects/profile/render-text.rkt b/collects/profile/render-text.rkt index a0952fc..a6c6abe 100644 --- a/collects/profile/render-text.rkt +++ b/collects/profile/render-text.rkt @@ -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)))) diff --git a/collects/profile/sampler.rkt b/collects/profile/sampler.rkt index 7529135..9dadc6b 100644 --- a/collects/profile/sampler.rkt +++ b/collects/profile/sampler.rkt @@ -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 diff --git a/collects/profile/structs.rkt b/collects/profile/structs.rkt index 9732e7c..7ecbeff 100644 --- a/collects/profile/structs.rkt +++ b/collects/profile/structs.rkt @@ -1,4 +1,4 @@ -#lang scheme/base +#lang racket/base ;; Struct definitions for the profiler diff --git a/collects/profile/utils.rkt b/collects/profile/utils.rkt index 7486ce3..8b9430e 100644 --- a/collects/profile/utils.rkt +++ b/collects/profile/utils.rkt @@ -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