diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-03-12 14:11:42 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-03-12 14:11:42 +0000 |
commit | d57da08b6de23716b99afcc3a596d1ee1292fb5f (patch) | |
tree | 8c53936fca41453c51f28d3725c740246e34b241 /srfi | |
parent | 70a9dc9cdec6b1073459488ea2af2a99e328c94c (diff) | |
download | guile-d57da08b6de23716b99afcc3a596d1ee1292fb5f.tar.gz |
* srfi-13.scm: Mark replacements.
* srfi-17.scm: Mark replacements.
* boot-9.scm (module-make-local-var!): Use module-add!.
(module-primitive-add!): New function.
(resolve-interface): Use
(call-with-deferred-observers, module-call-observers): New
functions.
(module-defer-observers, module-defer-observers-mute,
module-defer-observers-table): New variables.
(process-define-module, process-use-modules, export, re-export):
Use call-with-deferred-observers.
* syncase.scm (eval): Mark as replacement.
* boot-9.scm (defmacro-public): Use export-syntax instead of export.
Diffstat (limited to 'srfi')
-rw-r--r-- | srfi/ChangeLog | 6 | ||||
-rw-r--r-- | srfi/srfi-13.scm | 24 | ||||
-rw-r--r-- | srfi/srfi-17.scm | 16 |
3 files changed, 28 insertions, 18 deletions
diff --git a/srfi/ChangeLog b/srfi/ChangeLog index ee32af7ba..7921df7a3 100644 --- a/srfi/ChangeLog +++ b/srfi/ChangeLog @@ -1,3 +1,9 @@ +2003-03-12 Mikael Djurfeldt <djurfeldt@nada.kth.se> + + * srfi-13.scm: Mark replacements. + + * srfi-17.scm: Mark replacements. + 2003-03-11 Mikael Djurfeldt <djurfeldt@nada.kth.se> * srfi-1.scm (iota, map, for-each, map-in-order, list-index, diff --git a/srfi/srfi-13.scm b/srfi/srfi-13.scm index 1ca8edac3..b5e770548 100644 --- a/srfi/srfi-13.scm +++ b/srfi/srfi-13.scm @@ -1,6 +1,6 @@ ;;; srfi-13.scm --- String Library -;; Copyright (C) 2001, 2002 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc. ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as @@ -47,9 +47,8 @@ ;;; Code: -(define-module (srfi srfi-13)) - -(export +(define-module (srfi srfi-13) + :export ( ;;; Predicates ;; string? string-null? <= in the core string-any string-every @@ -59,14 +58,14 @@ string-tabulate ;;; List/string conversion - string->list + ;; string->list extended ;; list->string <= in the core reverse-list->string string-join ;;; Selection ;; string-length string-ref <= in the core - string-copy + ;; string-copy extended substring/shared string-copy! string-take string-take-right @@ -77,7 +76,7 @@ ;;; Modification ;; string-set! <= in the core - string-fill! + ;; string-fill! extended ;;; Comparison string-compare string-compare-ci @@ -100,15 +99,16 @@ string-suffix-ci? ;;; Searching - string-index string-index-right + ;; string-index extended + string-index-right string-skip string-skip-right string-count string-contains string-contains-ci ;;; Alphabetic case mapping - string-upcase string-upcase! - string-downcase string-downcase! + ;; string-upcase string-upcase! extended + ;; string-downcase string-downcase! extended string-titlecase string-titlecase! ;;; Reverse/Append @@ -140,6 +140,10 @@ string-filter string-delete ) + :replace (string->list string-copy string-fill! + string-upcase! string-upcase string-downcase! string-downcase + string-index) + ) (cond-expand-provide (current-module) '(srfi-13)) diff --git a/srfi/srfi-17.scm b/srfi/srfi-17.scm index 4ec71c595..1b15f22a2 100644 --- a/srfi/srfi-17.scm +++ b/srfi/srfi-17.scm @@ -1,6 +1,6 @@ ;;; srfi-17.scm --- Generalized set! -;; Copyright (C) 2001, 2002 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc. ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as @@ -68,13 +68,13 @@ ;;; Code: (define-module (srfi srfi-17) - :export (getter-with-setter - setter - ;; redefined standard procedures - car cdr caar cadr cdar cddr caaar caadr cadar caddr cdaar - cdadr cddar cdddr caaaar caaadr caadar caaddr cadaar cadadr - caddar cadddr cdaaar cdaadr cdadar cdaddr cddaar cddadr - cdddar cddddr string-ref vector-ref)) + :export (getter-with-setter) + :replace (;; redefined standard procedures + setter + car cdr caar cadr cdar cddr caaar caadr cadar caddr cdaar + cdadr cddar cdddr caaaar caaadr caadar caaddr cadaar cadadr + caddar cadddr cdaaar cdaadr cdadar cdaddr cddaar cddadr + cdddar cddddr string-ref vector-ref)) (cond-expand-provide (current-module) '(srfi-17)) |