Parent Directory | Revision Log | Patch
revision 1.2 by ossau, Wed Nov 6 00:29:24 2002 UTC | revision 1.3 by ossau, Thu Nov 7 20:52:36 2002 UTC | |
---|---|---|
# | Line 266 | Line 266 |
266 | ||
267 | (read-enable 'positions) | (read-enable 'positions) |
268 | ||
; (define g (make-guardian)) | ||
; (read-hash-extend #\g | ||
; (lambda (c port) | ||
; (let ((x (read port)) | ||
; (l (list 3))) | ||
; (set-source-property! x 'test l) | ||
; (g l) | ||
; x))) | ||
; (add-hook! after-gc-hook | ||
; (lambda () | ||
; (let loop ((obj (g))) | ||
; (if obj | ||
; (begin | ||
; (display "Guardian: ") | ||
; (write obj) | ||
; (newline) | ||
; (loop (g))))))) | ||
269 | ;;; (ice-9 debugger breakpoints source) ends here. | ;;; (ice-9 debugger breakpoints source) ends here. |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |