guile/guile-scsh ChangeLog Makefile.am init.scm...

[Gary Houston]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Gary Houston <address@hidden>   01/07/03 13:56:43

Modified files:
        guile-scsh     : ChangeLog Makefile.am init.scm USAGE 
Removed files:
        guile-scsh/lib : list-lib.scm 

Log message:
        * lib/list-lib.scm: removed.
        * Makefile.am (pkgdata_DATA): lib/list-lib.scm removed.
        * init.scm: load (srfi srfi-1) instead of (scsh lib list-lib).
        * USAGE: updated for module changes.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-scsh/ChangeLog.diff?cvsroot=OldCVS&tr1=1.62&tr2=1.63&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-scsh/Makefile.am.diff?cvsroot=OldCVS&tr1=1.24&tr2=1.25&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-scsh/init.scm.diff?cvsroot=OldCVS&tr1=1.38&tr2=1.39&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-scsh/USAGE.diff?cvsroot=OldCVS&tr1=1.14&tr2=1.15&r1=text&r2=text

Patches:
Index: guile/guile-scsh/ChangeLog
diff -u guile/guile-scsh/ChangeLog:1.62 guile/guile-scsh/ChangeLog:1.63
--- guile/guile-scsh/ChangeLog:1.62     Wed Jun 27 13:31:25 2001
+++ guile/guile-scsh/ChangeLog  Tue Jul  3 13:56:43 2001
@@ -1,3 +1,10 @@
+2001-07-03  Gary Houston  <address@hidden>
+
+       * lib/list-lib.scm: removed.
+       * Makefile.am (pkgdata_DATA): lib/list-lib.scm removed.
+       * init.scm: load (srfi srfi-1) instead of (scsh lib list-lib).
+       * USAGE: updated for module changes.
+
 2001-06-27  Gary Houston  <address@hidden>
 
        * configure.in: converted for autoconf 2.50: remove AC_INIT arg,
Index: guile/guile-scsh/Makefile.am
diff -u guile/guile-scsh/Makefile.am:1.24 guile/guile-scsh/Makefile.am:1.25
--- guile/guile-scsh/Makefile.am:1.24   Wed Jun 27 13:31:25 2001
+++ guile/guile-scsh/Makefile.am        Tue Jul  3 13:56:43 2001
@@ -8,7 +8,7 @@
        fileinfo.scm filesys.scm \
        fluid.scm fname.scm fr.scm glob.scm here.scm \
        init.scm jar-defrecord.scm let-opt.scm \
-       lib/list-lib.scm lib/string-lib.scm \
+       lib/string-lib.scm \
        loophole.scm module-system.scm \
        netconst.scm network.scm newports.scm population.scm \
        primitives.scm procobj.scm \
Index: guile/guile-scsh/USAGE
diff -u guile/guile-scsh/USAGE:1.14 guile/guile-scsh/USAGE:1.15
--- guile/guile-scsh/USAGE:1.14 Tue Jun 12 14:36:51 2001
+++ guile/guile-scsh/USAGE      Tue Jul  3 13:56:43 2001
@@ -34,11 +34,31 @@
 the scsh file layouts relatively intact, to simplify ungrading to
 newer versions of scsh.
 
-FIXME: some facilities from scsh are available directly in guile-core.
-They should probably be listed here.
-
 This list was generated with help from the make-module-list script.
 
+modules from guile-core
+=======================
+
+FIXME: various scsh facilities are available by default in guile-core and
+should be list here.
+
+(ice-9 format)
+(format)
+
+(ice-9 receive)
+(receive)
+
+(srfi srfi-1)
+;; replaces:
+;; map map-in-order for-each member assoc iota list-index
+;; delete delete!
+;; following are defined in (scsh utilities) too, possibly incompatibly:
+;; delete filter first fold fold-right any every
+(xcons list-tabulate circular-list proper-list? circular-list? dotted-list? 
null-list? not-pair? list= first second third fourth fifth sixth seventh eighth 
ninth tenth car+cdr take drop take-right drop-right take! drop-right! split-at 
split-at! last length+ concatenate concatenate! append-reverse append-reverse! 
zip unzip1 unzip2 unzip3 unzip4 unzip5 count fold fold-right pair-fold 
pair-fold-right reduce reduce-right unfold unfold-right append-map append-map! 
map! pair-for-each filter-map filter partition remove filter! partition! 
remove! find find-tail take-while take-while! drop-while span span! break 
break! any every delete-duplicates delete-duplicates! alist-cons alist-copy 
alist-delete alist-delete! lset<= lset= lset-adjoin lset-union 
lset-intersection lset-difference lset-xor lset-diff+intersection lset-union! 
lset-intersection! lset-difference! lset-xor! lset-diff+intersection! iota map 
map-in-order for-each list-index member delete delete! assoc)
+
+modules from guile-scsh
+=======================
+
 (scsh alt-syntax)
 ;; not compatible with (ice-9 syncase)
 (define-syntax syntax-rules)
@@ -69,7 +89,7 @@
 
 (scsh utilities)
 ;; "delete" is incompatile with guile primitive.
-;; following are defined in (scsh lib list-lib) too, possibly incompatibly:
+;; following are defined in (srfi srfi-1) too, possibly incompatibly:
 ;; delete filter first fold fold-right any every
 (del delete filter first first? nth fold fold-right any every mapv mapv! 
vector-every? copy-vector initialize-vector vector-append vfold vfold-right 
check-arg conjoin disjoin negate compose call/cc deprecated-proc 
deposit-bit-field real->exact-integer)
 
@@ -201,14 +221,6 @@
 
 (scsh scsh-condition)
 (errno-error with-errno-handler* with-errno-handler)
-
-(scsh lib list-lib)
-;; replaces:
-;; map map-in-order for-each member assoc iota list-index
-;; delete delete!
-;; following are defined in (scsh utilities) too, possibly incompatibly:
-;; delete filter first fold fold-right any every
-(xcons list-tabulate list-copy circular-list iota proper-list? circular-list? 
dotted-list? not-pair? null-list? list= first second third fourth fifth sixth 
seventh eighth ninth tenth car+cdr take drop take-right drop-right take! 
drop-right! take-while drop-while take-while! split-at split-at! span break 
span! break! last length+ append-reverse append-reverse! concatenate 
concatenate! zip unzip1 unzip2 unzip3 unzip4 unzip5 count unfold unfold-right 
fold unfold pair-fold reduce fold-right unfold-right pair-fold-right 
reduce-right append-map append-map! map! pair-for-each filter-map map-in-order 
filter partition remove filter! partition! remove! find find-tail any every 
list-index delete delete! delete-duplicates delete-duplicates! alist-cons 
alist-copy alist-delete alist-delete! lset<= lset= lset-adjoin lset-union 
lset-union! lset-intersection lset-intersection! lset-difference 
lset-difference! lset-xor lset-xor! lset-diff+intersection 
lset-diff+intersection! map for-each member assoc)
 
 (scsh syntax)
 ;; define-simple-syntax generates code that requires
Index: guile/guile-scsh/init.scm
diff -u guile/guile-scsh/init.scm:1.38 guile/guile-scsh/init.scm:1.39
--- guile/guile-scsh/init.scm:1.38      Wed Dec  6 15:10:39 2000
+++ guile/guile-scsh/init.scm   Tue Jul  3 13:56:43 2001
@@ -1,5 +1,11 @@
 (use-modules (ice-9 format)
             (ice-9 receive)
+
+            ;; replaces:
+            ;; map map-in-order for-each member assoc iota list-index
+            ;; delete delete!
+            (srfi srfi-1)
+
             (scsh alt-syntax)
             (scsh module-system)
             (scsh let-opt)
@@ -65,11 +71,6 @@
             (scsh stringcoll)
             (scsh scsh-condition)
             
-            ;; replaces:
-            ;; map map-in-order for-each member assoc iota list-index
-            ;; delete delete!
-            (scsh lib list-lib)
-
             ;; define-simple-syntax generates code that requires
             ;; (scsh alt-syntax).
             ;; other macros generate code that requires