mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-13 23:20:32 +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> Sat Sep 20 14:23:53 1997 Mikael Djurfeldt <mdj@kenneth>
* slib.scm (slib:load): Export. * 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 # 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 SHELL = /bin/sh
@ -51,10 +57,6 @@ PRE_UNINSTALL = true
POST_UNINSTALL = true POST_UNINSTALL = true
host_alias = @host_alias@ host_alias = @host_alias@
host_triplet = @host@ host_triplet = @host@
ACLOCAL = @ACLOCAL@
AUTOCONF = @AUTOCONF@
AUTOHEADER = @AUTOHEADER@
AUTOMAKE = @AUTOMAKE@
AWK = @AWK@ AWK = @AWK@
CC = @CC@ CC = @CC@
CPP = @CPP@ CPP = @CPP@
@ -65,8 +67,10 @@ GUILE_VERSION = @GUILE_VERSION@
LD = @LD@ LD = @LD@
LIBLOBJS = @LIBLOBJS@ LIBLOBJS = @LIBLOBJS@
LIBTOOL = @LIBTOOL@ LIBTOOL = @LIBTOOL@
LN_S = @LN_S@
MAINT = @MAINT@ MAINT = @MAINT@
MAKEINFO = @MAKEINFO@ MAKEINFO = @MAKEINFO@
NM = @NM@
PACKAGE = @PACKAGE@ PACKAGE = @PACKAGE@
RANLIB = @RANLIB@ RANLIB = @RANLIB@
THREAD_LIBS = @THREAD_LIBS@ THREAD_LIBS = @THREAD_LIBS@
@ -192,7 +196,7 @@ uninstall: uninstall-subpkgdataDATA
all: Makefile $(DATA) all: Makefile $(DATA)
install-strip: install-strip:
$(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' install $(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' INSTALL_SCRIPT='$(INSTALL_PROGRAM)' install
installdirs: installdirs:
$(mkinstalldirs) $(subpkgdatadir) $(mkinstalldirs) $(subpkgdatadir)

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

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