From 64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:38 -0800
Subject: Import Upstream version 3a5

---
 withfile.scm | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

(limited to 'withfile.scm')

diff --git a/withfile.scm b/withfile.scm
index f9e7226..fd527f8 100644
--- a/withfile.scm
+++ b/withfile.scm
@@ -1,5 +1,5 @@
 ; "withfile.scm", with-input-from-file and with-output-to-file for Scheme
-; Copyright (c) 1992, 1993 Aubrey Jaffer
+; Copyright (c) 1992, 1993, 2007 Aubrey Jaffer
 ;
 ;Permission to copy this software, to modify it, to redistribute it,
 ;to distribute modified versions, and to use it for any purpose is
@@ -42,41 +42,41 @@
 		(lambda() (set! withfile:current-output oport))))
 ;@
 (define peek-char
-  (let ((peek-char peek-char))
+  (let ((pk-chr peek-char))
     (lambda opt
-      (peek-char (if (null? opt) withfile:current-input (car opt))))))
+      (pk-chr (if (null? opt) withfile:current-input (car opt))))))
 ;@
 (define read-char
-  (let ((read-char read-char))
+  (let ((rd-chr read-char))
     (lambda opt
-      (read-char (if (null? opt) withfile:current-input (car opt))))))
+      (rd-chr (if (null? opt) withfile:current-input (car opt))))))
 ;@
 (define read
-  (let ((read read))
+  (let ((rd read))
     (lambda opt
-      (read (if (null? opt) withfile:current-input (car opt))))))
+      (rd (if (null? opt) withfile:current-input (car opt))))))
 ;@
 (define write-char
-  (let ((write-char write-char))
+  (let ((wrt-chr write-char))
     (lambda (obj . opt)
-      (write-char obj (if (null? opt) withfile:current-output (car opt))))))
+      (wrt-chr obj (if (null? opt) withfile:current-output (car opt))))))
 ;@
 (define write
-  (let ((write write))
+  (let ((wrt write))
     (lambda (obj . opt)
-      (write obj (if (null? opt) withfile:current-output (car opt))))))
+      (wrt obj (if (null? opt) withfile:current-output (car opt))))))
 ;@
 (define display
-  (let ((display display))
+  (let ((dspl display))
     (lambda (obj . opt)
-      (display obj (if (null? opt) withfile:current-output (car opt))))))
+      (dspl obj (if (null? opt) withfile:current-output (car opt))))))
 ;@
 (define newline
-  (let ((newline newline))
+  (let ((nwln newline))
     (lambda opt
-      (newline (if (null? opt) withfile:current-output (car opt))))))
+      (nwln (if (null? opt) withfile:current-output (car opt))))))
 ;@
 (define force-output
-  (let ((force-output force-output))
+  (let ((frc-otpt force-output))
     (lambda opt
-      (force-output (if (null? opt) withfile:current-output (car opt))))))
+      (frc-otpt (if (null? opt) withfile:current-output (car opt))))))
-- 
cgit v1.2.3