From 1b2f40b9f1b5950f014ad44943e081fc8b004970 Mon Sep 17 00:00:00 2001 From: Martin Grabmüller Date: Wed, 23 May 2001 05:04:55 +0000 Subject: * README: Update, document available SRFIs. * srfi-19.scm, srfi-17.scm, srfi-16.scm, srfi-14.scm, srfi-13.scm, srfi-11.scm, srfi-10.scm, srfi-9.scm, srfi-8.scm, srfi-6.scm, srfi-2.scm: Use `cond-expand-provide' for providing features to `cond-expand'. --- srfi/srfi-13.scm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'srfi/srfi-13.scm') diff --git a/srfi/srfi-13.scm b/srfi/srfi-13.scm index 612518105..76fcc6d06 100644 --- a/srfi/srfi-13.scm +++ b/srfi/srfi-13.scm @@ -110,6 +110,8 @@ string-delete ) +(cond-expand-provide (current-module) '(srfi-13)) + (dynamic-call "scm_init_srfi_13" (dynamic-link "libguile-srfi-srfi-13-14")) (define string-hash @@ -139,3 +141,4 @@ (caddr rest) (string-length s)))) (hash (string-upcase (substring/shared s start end)) bound)))) + -- cgit v1.2.3