summaryrefslogtreecommitdiffstats
path: root/genwrite.scm
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:29 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:29 -0800
commit8466d8cfa486fb30d1755c4261b781135083787b (patch)
treec8c12c67246f543c3cc4f64d1c07e003cb1d45ae /genwrite.scm
parent87b82b5822ca54228cfa6df29be3ad9d4bc47d16 (diff)
downloadslib-8466d8cfa486fb30d1755c4261b781135083787b.tar.gz
slib-8466d8cfa486fb30d1755c4261b781135083787b.zip
Import Upstream version 3a1upstream/3a1
Diffstat (limited to 'genwrite.scm')
-rw-r--r--genwrite.scm4
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)