Added aliases for missing write functions

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
 

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)
   )
 )