HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add missing SRFI-69 files.
[bpt/guile.git]
/
oop
/
goops.scm
diff --git
a/oop/goops.scm
b/oop/goops.scm
index
b62959a
..
c8f1f18
100644
(file)
--- a/
oop/goops.scm
+++ b/
oop/goops.scm
@@
-1,6
+1,6
@@
;;; installed-scm-file
;;; installed-scm-file
-;;;; Copyright (C) 1998,1999,2000,2001,2002, 2003 Free Software Foundation, Inc.
+;;;; Copyright (C) 1998,1999,2000,2001,2002, 2003
, 2006
Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@
-14,7
+14,7
@@
;;;;
;;;; You should have received a copy of the GNU Lesser General Public
;;;; License along with this library; if not, write to the Free Software
;;;;
;;;; You should have received a copy of the GNU Lesser General Public
;;;; License along with this library; if not, write to the Free Software
-;;;; Foundation, Inc., 5
9 Temple Place, Suite 330, Boston, MA 02111-1307
USA
+;;;; Foundation, Inc., 5
1 Franklin Street, Fifth Floor, Boston, MA 02110-1301
USA
;;;;
\f
;;;;
\f
@@
-1555,7
+1555,7
@@
(define (change-object-class old-instance old-class new-class)
(let ((new-instance (allocate-instance new-class '())))
(define (change-object-class old-instance old-class new-class)
(let ((new-instance (allocate-instance new-class '())))
- ;; Init
alize the slot
of the new instance
+ ;; Init
ialize the slots
of the new instance
(for-each (lambda (slot)
(if (and (slot-exists-using-class? old-class old-instance slot)
(eq? (slot-definition-allocation
(for-each (lambda (slot)
(if (and (slot-exists-using-class? old-class old-instance slot)
(eq? (slot-definition-allocation