From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 12 Jan 2017 09:02:33 +0000 (-0800)
Subject: Add aliases for write-shared and write-simple.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~142
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6d1f3c631d712260897df7d24f9baee55143b9b6;p=mit-scheme.git

Add aliases for write-shared and write-simple.

This is in lieu of a correct implementation.
---

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 8db5f25a4..ba93c60fa 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -2637,6 +2637,8 @@ USA.
   (parent (runtime))
   (export ()
 	  (flush-output flush-output-port)
+	  (write-shared write)
+	  (write-simple write)
 	  beep
 	  call-with-truncated-output-port
 	  clear