From c68bbf89bddf603ce13df5761640ce61c7381237 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Nguy=E1=BB=85n=20Th=C3=A1i=20Ng=E1=BB=8Dc=20Duy?=
 <pclouds@gmail.com>
Date: Tue, 4 Feb 2020 20:28:55 +0700
Subject: [PATCH] Correct srfi-159 exported procedures

The two procedures pretty and pretty-simply from (chibi show pretty)
should be part of (srfi 159 base). written-shared is removed from 159
because it looks like it's an addition in 166.
---
 lib/srfi/159.sld      | 2 +-
 lib/srfi/159/base.sld | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/srfi/159.sld b/lib/srfi/159.sld
index 84a5b7d7..44a763d9 100644
--- a/lib/srfi/159.sld
+++ b/lib/srfi/159.sld
@@ -5,7 +5,7 @@
   (export
    ;; base
    show fn forked with with! each each-in-list call-with-output
-   displayed written written-shared written-simply
+   displayed written written-simply pretty pretty-simply
    numeric numeric/comma numeric/si numeric/fitted
    nothing nl fl space-to tab-to escaped maybe-escaped
    padded padded/right padded/both
diff --git a/lib/srfi/159/base.sld b/lib/srfi/159/base.sld
index 4aff5ed6..8926d53b 100644
--- a/lib/srfi/159/base.sld
+++ b/lib/srfi/159/base.sld
@@ -1,9 +1,9 @@
 
 (define-library (srfi 159 base)
-  (import (chibi show))
+  (import (chibi show) (chibi show pretty))
   (export
    show fn forked with with! each each-in-list call-with-output
-   displayed written written-shared written-simply
+   displayed written written-simply pretty pretty-simply
    numeric numeric/comma numeric/si numeric/fitted
    nothing nl fl space-to tab-to escaped maybe-escaped
    padded padded/right padded/both