Merge remote-tracking branch 'origin/stable-2.0'

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

diff --git a/module/ice-9/weak-vector.scm b/module/ice-9/weak-vector.scm
index 92d40d8..31d79ec 100644 (file)
--- a/module/ice-9/weak-vector.scm
+++ b/module/ice-9/weak-vector.scm
@@ -1,11 +1,11 @@
 ;;; installed-scm-file
 
-;;;; Copyright (C) 2003, 2006 Free Software Foundation, Inc.
+;;;; 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 2.1 of the License, or (at your option) any later version.
+;;;; 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
@@ -19,13 +19,8 @@
 \f
 
 (define-module (ice-9 weak-vector)
-  :export (make-weak-vector list->weak-vector weak-vector weak-vector?
-          make-weak-key-alist-vector
-          make-weak-value-alist-vector
-          make-doubly-weak-alist-vector
-          weak-key-alist-vector?
-          weak-value-alist-vector?
-          doubly-weak-alist-vector?)  ; C
-  )
+  #:export (make-weak-vector list->weak-vector weak-vector weak-vector?))
 
-(%init-weaks-builtins) ; defined in libguile/weaks.c
+(eval-when (load eval compile)
+  (load-extension (string-append "libguile-" (effective-version))
+                  "scm_init_weak_vector_builtins"))