mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-06 15:40:29 +02:00
Code Activity

gc-profile: Show the result of `(version)'.

Browse source 
* gc-benchmarks/gc-profile.scm (main): Show `(version)'.
This commit is contained in:
Ludovic Courtès 2008-11-11 18:19:24 +01:00
parent 857a263e4f
commit e4c8d2a2c3
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
gc-benchmarks/gc-profile.scm
View file

@ -265,7 +265,7 @@ Report bugs to <bug-guile@gnu.org>.~%"))
load)))
(parameterize ((*iteration-count* (assoc-ref options 'iterations)))
(format #t "running `~a'...~%" prog)
(format #t "running `~a' with Guile ~a...~%" prog (version))
(let ((start (gettimeofday)))
(dynamic-wind