From 58a06ee200bb42709096112b12b7b5b679a833bd Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 27 Sep 2016 18:01:40 -0400
Subject: [PATCH] Added aliases for missing write functions

---
 docs/api/scheme/read.md | 2 +-
 scheme/write.sld        | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/docs/api/scheme/read.md b/docs/api/scheme/read.md
index 24b235a8..7494e2d1 100644
--- a/docs/api/scheme/read.md
+++ b/docs/api/scheme/read.md
@@ -3,7 +3,7 @@
 The `(scheme read)` library provides procedures for reading Scheme objects.
 
 - [`read`](#read)
-- `read-all`
+- [`read-all`](#read-all)
 
 #read
 
diff --git a/scheme/write.sld b/scheme/write.sld
index cb7cc679..44f23bb6 100644
--- a/scheme/write.sld
+++ b/scheme/write.sld
@@ -10,7 +10,8 @@
   (export
     display
     write
-  )
+    write-shared
+    write-simple)
   (import (scheme base))
   (begin
     (define (display obj . port)
@@ -21,5 +22,7 @@
       (if (null? port)
           (Cyc-write obj (current-output-port))
           (Cyc-write obj (car port))))
+    (define write-shared write)
+    (define write-simple write)
   )
 )