mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-29 19:30:36 +02:00
edb6de0bec
* module/ice-9/boot-9.scm (%cond-expand-features): Remove redundant list of feature identifiers in the comment. Explain more clearly what belongs in this list. Remove srfi-6. * module/srfi/srfi-4.scm, module/srfi/srfi-27.scm, module/srfi/srfi-31.scm, module/srfi/srfi-38.scm, module/srfi/srfi-39.scm, module/srfi/srfi-42.scm, module/srfi/srfi-45.scm, module/srfi/srfi-67.scm: Add missing 'cond-expand-provide'. * module/srfi/srfi-69.scm: Fix erroneous 'cond-expand-provide'. * doc/ref/srfi-modules.texi (SRFI-0): Update the list of features in Guile core.
66 lines
1.8 KiB
Scheme
66 lines
1.8 KiB
Scheme
;;; srfi-42.scm --- Eager comprehensions
|
|
|
|
;; Copyright (C) 2010 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
|
|
;; License as published by the Free Software Foundation; either
|
|
;; version 3 of the License, or (at your option) any later version.
|
|
|
|
;; This library is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
;; Lesser General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU Lesser General Public
|
|
;; License along with this library. If not, see
|
|
;; <http://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
|
|
;; This module is not yet documented in the Guile Reference Manual.
|
|
|
|
;;; Code:
|
|
|
|
(define-module (srfi srfi-42)
|
|
#:export (:
|
|
:-dispatch-ref
|
|
:-dispatch-set!
|
|
:char-range
|
|
:dispatched
|
|
:do
|
|
:generator-proc
|
|
:integers
|
|
:let
|
|
:list
|
|
:parallel
|
|
:port
|
|
:range
|
|
:real-range
|
|
:string
|
|
:until
|
|
:vector
|
|
:while
|
|
any?-ec
|
|
append-ec
|
|
dispatch-union
|
|
do-ec
|
|
every?-ec
|
|
first-ec
|
|
fold-ec
|
|
fold3-ec
|
|
last-ec
|
|
list-ec
|
|
make-initial-:-dispatch
|
|
max-ec
|
|
min-ec
|
|
product-ec
|
|
string-append-ec
|
|
string-ec
|
|
sum-ec
|
|
vector-ec
|
|
vector-of-length-ec))
|
|
|
|
(cond-expand-provide (current-module) '(srfi-42))
|
|
|
|
(include-from-path "srfi/srfi-42/ec.scm")
|