Fix RIGHT$

2016-12-24 16:20:16 +09:00
parent ed85733345
commit 694f4736df
1 changed files with 5 additions and 1 deletions
--- a/SMILEBASIC/builtinfunctions.d
+++ b/SMILEBASIC/builtinfunctions.d
@@ -1226,12 +1226,16 @@ class BuiltinFunction
    {
        if (len >= str.length)
        {
-            return str[0..$];
+            return str;
        }
        return str[0..len];
    }
    static wstring RIGHT(wstring str, int len)
    {
+        if (len >= str.length)
+        {
+            return str;
+        }
        return str[$ - len..$];
    }
    static wstring SUBST(wstring str, int i, Value alen, DefaultValue!(Value,false) areplace)