A test script for statprof

[Tommi Höynälänmaa]

Hi

Here is a script to test the statprof patch.

     - Tommi Höynälänmaa



(use-modules (statprof))

(define (factorial n)
  (if (= n 0) 1 (* n (factorial (- n 1)))))

(statprof (lambda ()
            (factorial 10000)
            #f))

OpenPGP_0xBB861FDE40460F83.asc
Description: application/pgp-keys

OpenPGP_signature
Description: OpenPGP digital signature