mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 17:00:23 +02:00
Code Activity

Fix typo in comment

Browse source
This commit is contained in:
Neil Jerram 2005-04-24 12:29:14 +00:00
parent 7346de618a
commit 8378b269a6
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
oop/goops.scm
View file

@ -1555,7 +1555,7 @@
(define (change-object-class old-instance old-class new-class) (define (change-object-class old-instance old-class new-class)
(let ((new-instance (allocate-instance new-class '()))) (let ((new-instance (allocate-instance new-class '())))
;; Initalize the slot of the new instance ;; Initialize the slots of the new instance
(for-each (lambda (slot) (for-each (lambda (slot)
(if (and (slot-exists-using-class? old-class old-instance slot) (if (and (slot-exists-using-class? old-class old-instance slot)
(eq? (slot-definition-allocation (eq? (slot-definition-allocation