suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove debugging code, add provide

Browse Source 
svn: r14342
This commit is contained in:
Eli Barzilay 2009-03-30 01:07:06 +00:00
parent 96d7291bfb
commit e2f50949be
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/profile/main.ss
View File

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