DRAFT mes: srfi-13: Switch to Guile modules.
* mes/module/srfi/srfi-13.mes: Rename to... * mes/module/srfi/srfi-13.scm: ...this. Add module header. * mes/module/mes/boot-5.mes: Do not use srfi-13.
This commit is contained in:
parent
4c12900281
commit
077963441f
|
@ -170,7 +170,6 @@
|
||||||
(mes-use-module (mes scm))
|
(mes-use-module (mes scm))
|
||||||
;; end boot-03.scm
|
;; end boot-03.scm
|
||||||
|
|
||||||
(mes-use-module (srfi srfi-13))
|
|
||||||
(mes-use-module (mes fluids))
|
(mes-use-module (mes fluids))
|
||||||
(mes-use-module (mes catch))
|
(mes-use-module (mes catch))
|
||||||
(mes-use-module (mes posix))
|
(mes-use-module (mes posix))
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
;;; -*-scheme-*-
|
;;; -*-scheme-*-
|
||||||
|
|
||||||
;;; GNU Mes --- Maxwell Equations of Software
|
;;; GNU Mes --- Maxwell Equations of Software
|
||||||
;;; Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
;;; Copyright © 2016,2017,2018,2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||||
;;;
|
;;;
|
||||||
;;; This file is part of GNU Mes.
|
;;; This file is part of GNU Mes.
|
||||||
;;;
|
;;;
|
||||||
|
@ -24,7 +24,34 @@
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
(mes-use-module (srfi srfi-14))
|
(define-module (srfi srfi-13)
|
||||||
|
#:use-module (srfi srfi-14)
|
||||||
|
#:export (string-join
|
||||||
|
string-copy
|
||||||
|
string=
|
||||||
|
string-split
|
||||||
|
string-take
|
||||||
|
string-drop
|
||||||
|
drop-right
|
||||||
|
string-drop-right
|
||||||
|
string-delete
|
||||||
|
string-index
|
||||||
|
string-rindex
|
||||||
|
reverse-list->string
|
||||||
|
substring/copy
|
||||||
|
substring/shared
|
||||||
|
string-null?
|
||||||
|
string-fold
|
||||||
|
string-fold-right
|
||||||
|
string-contains
|
||||||
|
string-trim
|
||||||
|
string-trim-right
|
||||||
|
string-trim-both
|
||||||
|
string-map
|
||||||
|
string-replace
|
||||||
|
string-downcase
|
||||||
|
string-upcase
|
||||||
|
string-tokenize))
|
||||||
|
|
||||||
(define (string-join lst . delimiter+grammar)
|
(define (string-join lst . delimiter+grammar)
|
||||||
(let ((delimiter (or (and (pair? delimiter+grammar) (car delimiter+grammar))
|
(let ((delimiter (or (and (pair? delimiter+grammar) (car delimiter+grammar))
|
Loading…
Reference in New Issue