mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

Fix

Browse source
This commit is contained in:
Mikael Djurfeldt 2003-04-14 20:13:50 +00:00
parent da2e146a5b
commit 55f8c6f1ca
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
oop/goops.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; installed-scm-file
;;;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 1998, 1999, 2000, 2001, 2003 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This program is free software; you can redistribute it and/or modify ;;;; This program is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by ;;;; it under the terms of the GNU General Public License as published by
@ -1081,7 +1081,7 @@
(if (or (integer? g-n-s) (if (or (integer? g-n-s)
(zero? size)) (zero? size))
g-n-s g-n-s
(append g-n-s index size)))))) (append g-n-s (list index size)))))))
slots)) slots))
;;; compute-cpl ;;; compute-cpl