mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Add srfi-16 and srfi-30 to %cond-expand-features.

Browse source 
* module/ice-9/boot-9.scm (%cond-expand-features): Add srfi-16 and
  srfi-30.

* doc/ref/srfi-modules.texi (SRFI-0): Add srfi-16 and srfi-30 to the
  list of core features.

* module/srfi/srfi-16.scm: Remove call to 'cond-expand-provide'.
This commit is contained in:
Mark H Weaver 2014-01-14 02:19:52 -05:00
parent c9d55a7e4e
commit 61d509194c
3 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
doc/ref/srfi-modules.texi
View file

@ -1,7 +1,7 @@
@c -*-texinfo-*- @c -*-texinfo-*-
@c This is part of the GNU Guile Reference Manual. @c This is part of the GNU Guile Reference Manual.
@c Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013 @c Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2006, 2007, 2008,
@c Free Software Foundation, Inc. @c 2009, 2010, 2011, 2012, 2013, 2014 Free Software Foundation, Inc.
@c See the file guile.texi for copying conditions. @c See the file guile.texi for copying conditions.
@node SRFI Support @node SRFI Support
@ -148,7 +148,9 @@ srfi-0
srfi-4 srfi-4
srfi-13 srfi-13
srfi-14 srfi-14
srfi-16
srfi-23 srfi-23
srfi-30
srfi-39 srfi-39
srfi-55 srfi-55
srfi-61 srfi-61

4
module/ice-9/boot-9.scm
View file

@ -1,7 +1,7 @@
;;; -*- mode: scheme; coding: utf-8; -*- ;;; -*- mode: scheme; coding: utf-8; -*-
;;;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, ;;;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
;;;; 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013 ;;;; 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014
;;;; Free Software Foundation, Inc. ;;;; Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
@ -4037,7 +4037,9 @@ when none is available, reading FILE-NAME with READER."
;; of the binary I/O model and may fail to support some characters. ;; of the binary I/O model and may fail to support some characters.
srfi-13 ;; string library srfi-13 ;; string library
srfi-14 ;; character sets srfi-14 ;; character sets
srfi-16 ;; case-lambda
srfi-23 ;; `error` procedure srfi-23 ;; `error` procedure
srfi-30 ;; nested multi-line comments
srfi-39 ;; parameterize srfi-39 ;; parameterize
srfi-55 ;; require-extension srfi-55 ;; require-extension
srfi-61 ;; general cond clause srfi-61 ;; general cond clause

6
module/srfi/srfi-16.scm
View file

@ -1,6 +1,6 @@
;;; srfi-16.scm --- case-lambda ;;; srfi-16.scm --- case-lambda
;; Copyright (C) 2001, 2002, 2006, 2009 Free Software Foundation, Inc. ;; Copyright (C) 2001, 2002, 2006, 2009, 2014 Free Software Foundation, Inc.
;; ;;
;; This library is free software; you can redistribute it and/or ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public
@ -48,6 +48,4 @@
(define-module (srfi srfi-16) (define-module (srfi srfi-16)
#:re-export (case-lambda)) #:re-export (case-lambda))
;; Case-lambda is now provided by code psyntax. ;; Case-lambda is now provided by core psyntax.
(cond-expand-provide (current-module) '(srfi-16))