diff options
| author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:29 -0800 |
|---|---|---|
| committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:29 -0800 |
| commit | 8466d8cfa486fb30d1755c4261b781135083787b (patch) | |
| tree | c8c12c67246f543c3cc4f64d1c07e003cb1d45ae /genwrite.scm | |
| parent | 87b82b5822ca54228cfa6df29be3ad9d4bc47d16 (diff) | |
| download | slib-8466d8cfa486fb30d1755c4261b781135083787b.tar.gz slib-8466d8cfa486fb30d1755c4261b781135083787b.zip | |
Import Upstream version 3a1upstream/3a1
Diffstat (limited to 'genwrite.scm')
| -rw-r--r-- | genwrite.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/genwrite.scm b/genwrite.scm index 2e4bf60..4f9105f 100644 --- a/genwrite.scm +++ b/genwrite.scm @@ -4,7 +4,7 @@ ;; Distribution restrictions: none (define genwrite:newline-str (make-string 1 #\newline)) - +;@ (define (generic-write obj display? width output) (define (read-macro? l) @@ -247,7 +247,7 @@ (wr obj 0))) ; (reverse-string-append l) = (apply string-append (reverse l)) - +;@ (define (reverse-string-append l) (define (rev-string-append l i) |