guile/guile-core/ice-9 format.scm Makefile.am p...

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/05/24 17:15:32

Modified files:
        guile-core/ice-9: format.scm Makefile.am 
Added files:
        guile-core/ice-9: pretty-print.scm 

Log message:
        * Makefile.am (ice9_sources): Added "pretty-print.scm".
        * pretty-print.scm: New file, copied from SLIB.
        * format.scm: Autoload `pretty-print'.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/pretty-print.scm?cvsroot=OldCVS&rev=1.1
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/format.scm.diff?cvsroot=OldCVS&tr1=1.8&tr2=1.9&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/Makefile.am.diff?cvsroot=OldCVS&tr1=1.43&tr2=1.44&r1=text&r2=text

Patches:
Index: guile/guile-core/ice-9/Makefile.am
diff -u guile/guile-core/ice-9/Makefile.am:1.43 
guile/guile-core/ice-9/Makefile.am:1.44
--- guile/guile-core/ice-9/Makefile.am:1.43     Sun Apr 29 06:05:27 2001
+++ guile/guile-core/ice-9/Makefile.am  Thu May 24 17:15:32 2001
@@ -28,10 +28,11 @@
        format.scm getopt-long.scm hcons.scm lineio.scm ls.scm mapping.scm \
        match.scm networking.scm null.scm optargs.scm poe.scm popen.scm    \
        posix.scm psyntax.pp psyntax.ss q.scm r4rs.scm r5rs.scm            \
-       rdelim.scm receive.scm regex.scm runq.scm rw.scm  \
+       rdelim.scm receive.scm regex.scm runq.scm rw.scm                   \
        safe-r5rs.scm safe.scm session.scm slib.scm stack-catch.scm        \
-       streams.scm string-fun.scm syncase.scm tags.scm threads.scm        \
-       buffered-input.scm time.scm history.scm channel.scm
+       streams.scm string-fun.scm syncase.scm tags.scm threads.scm        \
+       buffered-input.scm time.scm history.scm channel.scm                \
+        pretty-print.scm
 
 subpkgdatadir = $(pkgdatadir)/$(VERSION)/ice-9
 subpkgdata_DATA = $(ice9_sources)
Index: guile/guile-core/ice-9/format.scm
diff -u guile/guile-core/ice-9/format.scm:1.8 
guile/guile-core/ice-9/format.scm:1.9
--- guile/guile-core/ice-9/format.scm:1.8       Tue May 15 07:59:01 2001
+++ guile/guile-core/ice-9/format.scm   Thu May 24 17:15:32 2001
@@ -11,7 +11,9 @@
 ;
 ; Version 3.0
 
-(define-module (ice-9 format))
+(define-module (ice-9 format)
+  :autoload (ice-9 pretty-print) (pretty-print))
+
 (export format
        format:symbol-case-conv
        format:iobj-case-conv
@@ -445,7 +447,6 @@
               (format:tabulate modifier params)
               (anychar-dispatch))
              ((#\Y)                    ; Pretty-print
-              (require 'pretty-print)
               (pretty-print (next-arg) format:port)
               (set! format:output-col 0)
               (anychar-dispatch))