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