summaryrefslogtreecommitdiff
path: root/srfi
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2003-03-12 14:11:42 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2003-03-12 14:11:42 +0000
commitd57da08b6de23716b99afcc3a596d1ee1292fb5f (patch)
tree8c53936fca41453c51f28d3725c740246e34b241 /srfi
parent70a9dc9cdec6b1073459488ea2af2a99e328c94c (diff)
downloadguile-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/ChangeLog6
-rw-r--r--srfi/srfi-13.scm24
-rw-r--r--srfi/srfi-17.scm16
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))