From f94b984f67482baf912ea34da0bd298fb54b49d3 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 27 Jul 2015 22:42:39 -0400
Subject: [PATCH] WIP - string-set!

---
 test2.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/test2.scm b/test2.scm
index a00bcb5b..d7105d87 100644
--- a/test2.scm
+++ b/test2.scm
@@ -1,8 +1,9 @@
 (import (scheme base)
         (scheme file)
         (scheme write))
-  (apply make-vector '())
-  1
+
+(write
+  (string-set! "abc" 1 #\x))
 ;
 ;(map
 ;  (lambda (_)