On Tue 04 Aug 2009 11:26, Ken Raeburn <raeb...@raeburn.org> writes: > % guile > Guile Scheme interpreter 0.5 on Guile 1.9.1 > Copyright (C) 2001-2008 Free Software Foundation, Inc. > > Enter `,help' for help. > scheme@(guile-user)> ,pr (cons 1 2)
wi...@unquote:~/src/guile$ meta/guile Guile Scheme interpreter 0.5 on Guile 1.9.6 Copyright (C) 2001-2008 Free Software Foundation, Inc. Enter `,help' for help. scheme@(guile-user)> ,pr (cons 1 2) No samples recorded. scheme@(guile-user)> ,pr (let lp ((n 1000000)) (if (zero? n) #t (lp (1- n)))) % cumulative self time seconds seconds name 100.00 0.07 0.07 #<program 8949bb0 at <unknown port>:1:4 ()> 0.00 0.07 0.00 #<program 864a420 at ice-9/boot-9.scm:3394:10 ()> 0.00 0.07 0.00 #<program 893d0a0 opts> 0.00 0.07 0.00 top-repl 0.00 0.07 0.00 call-with-backtrace 0.00 0.07 0.00 #<program 8949b90 ()> 0.00 0.07 0.00 start-repl 0.00 0.07 0.00 #<program 893d660 at system/repl/repl.scm:87:9 ()> --- Sample count: 5 Total time: 0.07 seconds (0 seconds in GC) Granted it walks past the point of the profiling, but still, we're getting there... Andy -- http://wingolog.org/