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
--- 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))
_______________________________________________
Cmdist mailing list
[email protected]
https://cm-mail.stanford.edu/mailman/listinfo/cmdist
