[CM] Memory leak (with patch)

[chohag at jtan.com]

I just spent an hour looking for a memory leak that isn't there.
This small patch might have saved me the trouble. :)

Cheers,

Matthew

-------------- next part --------------
--- s7/profile.scm	Sun Oct 15 16:07:25 2023
+++ balls/profile.scm	Sun Jul 14 20:24:01 2024
@@ -80,7 +80,7 @@
 				 (max 0.0 (- (car (vector-ref vect 0)) excl))))
 
 		       (let ((gc-info (*s7* 'gc-info)))
-			 (format *profile-port* "cells allocated: ~A, GC calls: ~D, GC time: ~,3F seconds~%" 
+			 (format *profile-port* "cell allocations: ~A, GC calls: ~D, GC time: ~,3F seconds~%" 
 				 (let ((num (with-let *s7* 
 					      (+ (- heap-size free-heap-size) gc-total-freed))))
 				   (cond ((< num 1000) (format #f "~D" num))