From a69c9fb665459e2bfdbda1bf80741a0af31a7faf Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:06:40 -0800
Subject: New upstream version 3b5

---
 trnscrpt.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)
 mode change 100644 => 100755 trnscrpt.scm

(limited to 'trnscrpt.scm')

diff --git a/trnscrpt.scm b/trnscrpt.scm
old mode 100644
new mode 100755
index d801621..844e115
--- a/trnscrpt.scm
+++ b/trnscrpt.scm
@@ -50,21 +50,21 @@
 (define write-char
   (let ((wrt-chr write-char))
     (lambda (obj . opt)
-      (apply wrt-chr obj opt)
+      (apply wrt-chr (cons obj opt))
       (if (output-port? transcript:port)
 	  (wrt-chr obj transcript:port)))))
 ;@
 (define write
   (let ((wrt write))
     (lambda (obj . opt)
-      (apply wrt obj opt)
+      (apply wrt (cons obj opt))
       (if (output-port? transcript:port)
 	  (wrt obj transcript:port)))))
 ;@
 (define display
   (let ((dspl display))
     (lambda (obj . opt)
-      (apply dspl obj opt)
+      (apply dspl (cons obj opt))
       (if (output-port? transcript:port)
 	  (dspl obj transcript:port)))))
 ;@
-- 
cgit v1.2.3