[bpt/guile.git] / module / ice-9 / weak-vector.scm

;;; installed-scm-file

;;;; Copyright (C) 2003, 2006, 2011 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
;;;; License as published by the Free Software Foundation; either
;;;; version 3 of the License, or (at your option) any later version.
;;;; 
;;;; This library is distributed in the hope that it will be useful,
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;;;; Lesser General Public License for more details.
;;;; 
;;;; 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
;;;; 
\f

(define-module (ice-9 weak-vector)
  #:export (make-weak-vector list->weak-vector weak-vector weak-vector?))

(eval-when (load eval compile)
  (load-extension (string-append "libguile-" (effective-version))
                  "scm_init_weak_vector_builtins"))
Commit	Line	Data
c35738c1 MD	1	;;; installed-scm-file
c35738c1 MD	2
a141db86	3	;;;; Copyright (C) 2003, 2006, 2011 Free Software Foundation, Inc.
c35738c1	4	;;;;
73be1d9e MV	5	;;;; This library is free software; you can redistribute it and/or
	6	;;;; modify it under the terms of the GNU Lesser General Public
	7	;;;; License as published by the Free Software Foundation; either
53befeb7	8	;;;; version 3 of the License, or (at your option) any later version.
c35738c1	9	;;;;
73be1d9e	10	;;;; This library is distributed in the hope that it will be useful,
c35738c1	11	;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
73be1d9e MV	12	;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
73be1d9e MV	13	;;;; Lesser General Public License for more details.
c35738c1	14	;;;;
73be1d9e MV	15	;;;; You should have received a copy of the GNU Lesser General Public
73be1d9e MV	16	;;;; License along with this library; if not, write to the Free Software
92205699	17	;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
c35738c1 MD	18	;;;;
	19	\f
	20
	21	(define-module (ice-9 weak-vector)
a141db86	22	#:export (make-weak-vector list->weak-vector weak-vector weak-vector?))
c35738c1	23
a141db86 AW	24	(eval-when (load eval compile)
	25	(load-extension (string-append "libguile-" (effective-version))
	26	"scm_init_weak_vector_builtins"))