From 41bf925b4e091619e062914edbad537b13a9c830 Mon Sep 17 00:00:00 2001
From: Mike Gerwitz <mtg@gnu.org>
Date: Thu, 31 Aug 2017 12:42:25 -0400
Subject: [PATCH] prebirth: Add `string-append' to libprebirth

* build-aux/bootstrap/libprebirth.js ($$string$_$append): Add function.
---
 build-aux/bootstrap/libprebirth.js | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/build-aux/bootstrap/libprebirth.js b/build-aux/bootstrap/libprebirth.js
index e566635..c4556f9 100644
--- a/build-aux/bootstrap/libprebirth.js
+++ b/build-aux/bootstrap/libprebirth.js
@@ -89,6 +89,11 @@ const $$string$q$$7$    = ( x, y ) => x === y;
 const $$string$_$ref    = ( s, i ) => s[ i ]
                               || _error( `value out of range: ${i}`);
 
+function $$string$_$append()
+{
+    return argToArr( arguments ).join( "" );
+}
+
 // R7RS math
 function $$$p$()
 {