1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
diff -purN a/lily/general-scheme.cc b/lily/general-scheme.cc
--- a/lily/general-scheme.cc 2017-10-15 17:42:11.000000000 +0100
+++ b/lily/general-scheme.cc 2018-01-10 16:20:08.129066507 +0000
@@ -267,6 +267,8 @@ LY_DEFINE (ly_dimension_p, "ly:dimension
/*
Debugging mem leaks:
*/
+
+/*
LY_DEFINE (ly_protects, "ly:protects",
0, 0, 0, (),
"Return hash of protected objects.")
@@ -278,6 +280,7 @@ LY_DEFINE (ly_protects, "ly:protects",
return programming_error ("ly:protects is not supported in Guile 2.1");
#endif
}
+*/
LY_DEFINE (ly_gettext, "ly:gettext",
1, 0, 0, (SCM original),
diff -purN a/scm/lily.scm b/scm/lily.scm
--- a/scm/lily.scm 2017-10-15 17:42:11.000000000 +0100
+++ b/scm/lily.scm 2018-01-10 16:22:54.914457450 +0000
@@ -836,10 +836,11 @@ messages into errors.")
(define-public (dump-gc-protects)
(set! gc-protect-stat-count (1+ gc-protect-stat-count))
- (let* ((protects (sort (hash-table->alist (ly:protects))
- (lambda (a b)
- (< (object-address (car a))
- (object-address (car b))))))
+ (let* (;(protects (sort (hash-table->alist (ly:protects))
+ ; (lambda (a b)
+ ; (< (object-address (car a))
+ ; (object-address (car b))))))
+ (protects '())
(out-file-name (string-append
"gcstat-" (number->string gc-protect-stat-count)
".scm"))
|