remove weak pairs, rewrite weak vectors

[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 09e2e0a..31d79ec 100644 (file)
--- a/module/ice-9/weak-vector.scm
+++ b/module/ice-9/weak-vector.scm
@@ -1,6 +1,6 @@
 ;;; 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
@@ -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"))