1;;;; Copyright (C) 2016 Free Software Foundation, Inc. 2;;;; 3;;;; This library is free software; you can redistribute it and/or 4;;;; modify it under the terms of the GNU Lesser General Public License 5;;;; as published by the Free Software Foundation; either version 3 of 6;;;; the License, or (at your option) any later version. 7;;;; 8;;;; This library is distributed in the hope that it will be useful, 9;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of 10;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 11;;;; Lesser General Public License for more details. 12;;;; 13;;;; You should have received a copy of the GNU Lesser General Public 14;;;; License along with this library; if not, write to the Free Software 15;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA 16;;;; 17 18 19(define-module (ice-9 fdes-finalizers) 20 #:export (add-fdes-finalizer! 21 remove-fdes-finalizer!)) 22 23(eval-when (expand load eval) 24 (load-extension (string-append "libguile-" (effective-version)) 25 "scm_init_fdes_finalizers")) 26