/[guile]/guile/guile-core/ice-9/debugger/breakpoints/source.scm
ViewVC logotype

Diff of /guile/guile-core/ice-9/debugger/breakpoints/source.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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.

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26