From 8466d8cfa486fb30d1755c4261b781135083787b Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:29 -0800
Subject: Import Upstream version 3a1

---
 genwrite.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'genwrite.scm')

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)
-- 
cgit v1.2.3