From 70c70bc7bc693bea956b17791b57960ff5a8f696 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Mon, 30 Mar 2009 01:07:06 +0000
Subject: [PATCH] remove debugging code, add provide

svn: r14342

original commit: e2f50949be5155ec2d2c5b9fb27d99dcabc18825
---
 collects/profile/main.ss | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/collects/profile/main.ss b/collects/profile/main.ss
index d6767d0..446cab0 100644
--- a/collects/profile/main.ss
+++ b/collects/profile/main.ss
@@ -1,5 +1,7 @@
 #lang scheme/base
 
+(provide profile-thunk profile)
+
 (require "sampler.ss" (except-in "analyzer.ss" profile)
          (prefix-in text: "render-text.ss")
          (for-syntax scheme/base))
@@ -46,6 +48,7 @@
                                    stx (car xs))]
          [else (loop (car xs) kwds (cdr xs))]))]))
 
+#|
 
 (define (fib1 n) (if (<= n 1) n (+ (fib1 (- n 1)) (fib1 (- n 2)))))
 (define (fib22 n) (if (<= n 2) 1 (+ (fib22 (- n 1)) (fib22 (- n 2)))))
@@ -67,3 +70,4 @@
          ;(foo 35)
          ;#:render render
          #:threads #t)
+|#