mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

* boot-9.scm (separate-fields-discarding-char,

Browse source 
separate-fields-after-char, separate-fields-before-char): Call
continuation function, RET, as advertised: with each separated
field a separate argument.

* Makefile.in: Regenerated with automake 1.2a.
This commit is contained in:
Jim Blandy 1997-09-28 03:09:59 +00:00
parent 9ba3d4034c
commit af01fdcd21
3 changed files with 24 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

9
ice-9/ChangeLog
View file

@ -1,3 +1,12 @@
Sat Sep 27 20:19:20 1997 Jim Blandy <jimb@totoro.red-bean.com>
* boot-9.scm (separate-fields-discarding-char,
separate-fields-after-char, separate-fields-before-char): Call
continuation function, RET, as advertised: with each separated
field a separate argument.
* Makefile.in: Regenerated with automake 1.2a.
Sat Sep 20 14:23:53 1997 Mikael Djurfeldt <mdj@kenneth>
* slib.scm (slib:load): Export.

20
ice-9/Makefile.in
View file

@ -1,8 +1,14 @@
# Makefile.in generated automatically by automake 1.1p from Makefile.am
# Makefile.in generated automatically by automake 1.2a from Makefile.am
# Copyright (C) 1994, 1995, 1996 Free Software Foundation, Inc.
# Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy, distribute and modify it.
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
SHELL = /bin/sh
@ -51,10 +57,6 @@ PRE_UNINSTALL = true
POST_UNINSTALL = true
host_alias = @host_alias@
host_triplet = @host@
ACLOCAL = @ACLOCAL@
AUTOCONF = @AUTOCONF@
AUTOHEADER = @AUTOHEADER@
AUTOMAKE = @AUTOMAKE@
AWK = @AWK@
CC = @CC@
CPP = @CPP@
@ -65,8 +67,10 @@ GUILE_VERSION = @GUILE_VERSION@
LD = @LD@
LIBLOBJS = @LIBLOBJS@
LIBTOOL = @LIBTOOL@
LN_S = @LN_S@
MAINT = @MAINT@
MAKEINFO = @MAKEINFO@
NM = @NM@
PACKAGE = @PACKAGE@
RANLIB = @RANLIB@
THREAD_LIBS = @THREAD_LIBS@
@ -192,7 +196,7 @@ uninstall: uninstall-subpkgdataDATA
all: Makefile $(DATA)
install-strip:
$(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' install
$(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' INSTALL_SCRIPT='$(INSTALL_PROGRAM)' install
installdirs:
$(mkinstalldirs) $(subpkgdatadir)

6
ice-9/boot-9.scm
View file

@ -3796,7 +3796,7 @@
((string-rindex str ch)
=> (lambda (w) (loop (cons (make-shared-substring str (+ 1 w)) fields)
(make-shared-substring str 0 w))))
(else (ret (cons str fields))))))
(else (apply ret str fields)))))
(define-public (separate-fields-after-char ch str ret)
(reverse
@ -3806,7 +3806,7 @@
((string-index str ch)
=> (lambda (w) (loop (cons (make-shared-substring str 0 (+ 1 w)) fields)
(make-shared-substring str (+ 1 w)))))
(else (ret (cons str fields)))))))
(else (apply ret str fields))))))
(define-public (separate-fields-before-char ch str ret)
(let loop ((fields '())
@ -3815,7 +3815,7 @@
((string-rindex str ch)
=> (lambda (w) (loop (cons (make-shared-substring str w) fields)
(make-shared-substring str 0 w))))
(else (ret (cons str fields))))))
(else (apply ret str fields)))))
;;; {String Fun: String Prefix Predicates}