global-functions.rsc

@@ -240,16 +240,9 @@
 
 # multiply given character(s)
 :set CharacterMultiply do={
-  :local Str [ :tostr $1 ];
-  :local Num [ :tonum $2 ];
-
-  :if ($Num = 0) do={
-    :return "";
-  }
-
   :local Return "";
-  :for I from=1 to=$Num do={
-    :set Return ($Return . $Str);
+  :for I from=1 to=$2 do={
+    :set Return ($Return . $1);
   }
   :return $Return;
 }

mod/inspectvar.rsc

@@ -36,7 +36,7 @@
 
     :global CharacterMultiply;
 
-    :return ([ $CharacterMultiply " " ($Level * 2) ] . "-" . $Prefix . "-> " . $Value);
+    :return ([ $CharacterMultiply " " $Level ] . "-" . $Prefix . "-> " . $Value);
   }
 
   :local TypeOf [ :typeof $Input ];