/[guile]/guile/guile-core/oop/goops.scm
ViewVC logotype

Diff of /guile/guile-core/oop/goops.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13.2.6 by mdj, Thu Apr 17 18:47:18 2003 UTC revision 1.13.2.7 by mdj, Thu Apr 17 18:52:21 2003 UTC
# Line 936  Line 936 
936      ;; So we can work as if we had only proper lists.      ;; So we can work as if we had only proper lists.
937      (if (pair? l)                      (if (pair? l)                
938          (begin          (begin
939            (if (eqv? (car l) old)              (if (eq? (car l) old)  
940                (set-car! l new))                (set-car! l new))
941            (loop (cdr l))))))            (loop (cdr l))))))
942    

Legend:
Removed from v.1.13.2.6  
changed lines
  Added in v.1.13.2.7

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