13.31 guile-tools punify

Usage: punify [-i] [-n] [FILE1 FILE2 ...]

Read forms from each FILE (or stdin if no files are specified) and
write them to stdout, removing comments and non-essential whitespace.
This is useful when installing Scheme source to space-limited media.
An exception is made for certain whitespace characters appearing in a
string.  They are expanded to their two-character "escaped" form:

    #\bel  \a     #\newline  \n     #\ht  \t
    #\np   \f     #\cr       \r     #\vt  \v

Option `--newline-after-top-level-form' (or `-n' for short) means to
output a newline after each top-level form.

Option `--inplace' (or `-i' for short) means to modify the file in place,
and display to stdout an informational message for each file processed.

Example:
$ wc ./punify ; ./punify ./punify | wc
  228    1006    8864 ./punify
    0     177    3247


Usage from a Scheme program:
 (use-modules (scripts punify))
 (punify [input ...])

Each INPUT is either a filename (string) or an input port.