diff options
author | Andy Wingo <wingo@pobox.com> | 2014-02-07 13:00:12 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-02-07 13:00:41 +0100 |
commit | c9647bfb7e780d65969d77db75576533e3e4470a (patch) | |
tree | 4af624f366495f589b4b8d9de70c637b1eecd5ab /module | |
parent | 13af75bfe00ff66d18dff31fbf76fadbc3f8c4f4 (diff) | |
download | guile-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.scm | 9 |
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)) |