From ffb4b6e685e8cb02f7061cbc09267320cf79c9d9 Mon Sep 17 00:00:00 2001
From: otya128 <otya128@users.noreply.github.com>
Date: Mon, 3 Jul 2017 18:24:56 +0900
Subject: [PATCH] Fix SWAP LHS$[L],RHS$[R]

---
 SMILEBASIC/VM.d | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/SMILEBASIC/VM.d b/SMILEBASIC/VM.d
index c484555..8c63390 100644
--- a/SMILEBASIC/VM.d
+++ b/SMILEBASIC/VM.d
@@ -2348,6 +2348,11 @@ class SwapCode : Code
             refitem2.stringArrayReference = new Array!wchar([wc]);
             return;
         }
+        if (refitem2.type == ValueType.StringArrayReference && refitem1.type == ValueType.StringArrayReference)
+        {
+            refitem1.stringArrayReference.swap(refitem2.stringArrayReference);
+            return;
+        }
         throw new TypeMismatch();
     }
 }