Subversion Repositories scarts

;;"genwrite.scm" generic write used by pretty-print and truncated-print.
;; Copyright (c) 1991, Marc Feeley
;; Author: Marc Feeley (feeley@iro.umontreal.ca)
;; Distribution restrictions: none
"'""`"","",@""("" "")"")"" . ""()""#""#t""#f""#[procedure]""\"""))
                                        (loop j
                                              (+ j 1)
                                              (out ""
                                                   (out (substring obj i j)
                                                        col)))
                                        (loop i (+ j 1) col)))
                                    (out """"space""newline""#\\""#[input-port]""#[output-port]""#[eof-object]""#[unknown]""        ""        "; may have to split on multiple lines
; all can be printed on one line
"#"; (head item1
;       item2
;       item3)
"("; (item1
;  item2
;  item3)
"("")"")"".""("" "; define formatting style (change these to suit your style)
; (reverse-string-append l) = (apply string-append (reverse l))