diff --git a/doc/mod/inspectvar.d/01-inspectvar.avif b/doc/mod/inspectvar.d/01-inspectvar.avif index 1be13580..e4e9bd5a 100644 Binary files a/doc/mod/inspectvar.d/01-inspectvar.avif and b/doc/mod/inspectvar.d/01-inspectvar.avif differ diff --git a/global-functions.rsc b/global-functions.rsc index 05c232ad..3b5db905 100644 --- a/global-functions.rsc +++ b/global-functions.rsc @@ -240,9 +240,16 @@ # 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=$2 do={ - :set Return ($Return . $1); + :for I from=1 to=$Num do={ + :set Return ($Return . $Str); } :return $Return; } diff --git a/mod/inspectvar.rsc b/mod/inspectvar.rsc index d0473a9d..63f35ba1 100644 --- a/mod/inspectvar.rsc +++ b/mod/inspectvar.rsc @@ -36,7 +36,7 @@ :global CharacterMultiply; - :return ([ $CharacterMultiply " " $Level ] . "-" . $Prefix . "-> " . $Value); + :return ([ $CharacterMultiply " " ($Level * 2) ] . "-" . $Prefix . "-> " . $Value); } :local TypeOf [ :typeof $Input ];