/[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.30 by mdj, Sun Apr 13 14:48:35 2003 UTC revision 1.31 by mdj, Mon Apr 14 20:12:40 2003 UTC
# Line 1231  Line 1231 
1231                         (if (or (integer? g-n-s)                         (if (or (integer? g-n-s)
1232                                 (zero? size))                                 (zero? size))
1233                             g-n-s                             g-n-s
1234                             (append g-n-s index size))))))                             (append g-n-s (list index size)))))))
1235         slots))         slots))
1236    
1237  ;;; compute-cpl  ;;; compute-cpl

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

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