summaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2014-02-07 13:00:12 +0100
committerAndy Wingo <wingo@pobox.com>2014-02-07 13:00:41 +0100
commitc9647bfb7e780d65969d77db75576533e3e4470a (patch)
tree4af624f366495f589b4b8d9de70c637b1eecd5ab /module
parent13af75bfe00ff66d18dff31fbf76fadbc3f8c4f4 (diff)
downloadguile-c9647bfb7e780d65969d77db75576533e3e4470a.tar.gz
Add weak-vector-length, weak-vector-ref, weak-vector-set!
* libguile/weak-vectors.h: * libguile/weak-vectors.c (scm_is_weak_vector, scm_c_weak_vector_length): (scm_c_weak_vector_ref, scm_c_weak_vector_set_x): New interfaces for dealing with weak vectors from C. (scm_weak_vector_length, scm_weak_vector_ref, scm_weak_vector_set_x): New Scheme interfaces to weak vectors; to be used instead of vector-length, vector-ref, etc. * module/ice-9/weak-vector.scm: Export the new interfaces.
Diffstat (limited to 'module')
-rw-r--r--module/ice-9/weak-vector.scm9
1 files changed, 7 insertions, 2 deletions
diff --git a/module/ice-9/weak-vector.scm b/module/ice-9/weak-vector.scm
index 31d79ec6f..0df8e1a45 100644
--- 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, 2011 Free Software Foundation, Inc.
+;;;; Copyright (C) 2003, 2006, 2011, 2014 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,7 +19,12 @@
(define-module (ice-9 weak-vector)
- #:export (make-weak-vector list->weak-vector weak-vector weak-vector?))
+ #:export (make-weak-vector
+ list->weak-vector
+ weak-vector
+ weak-vector?
+ weak-vector-ref
+ weak-vector-set!))
(eval-when (load eval compile)
(load-extension (string-append "libguile-" (effective-version))