diff --git a/doc/mod/inspectvar.d/01-inspectvar.avif b/doc/mod/inspectvar.d/01-inspectvar.avif index e4e9bd5a..1be13580 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 3b5db905..05c232ad 100644 --- a/global-functions.rsc +++ b/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; } diff --git a/mod/inspectvar.rsc b/mod/inspectvar.rsc index 63f35ba1..d0473a9d 100644 --- a/mod/inspectvar.rsc +++ b/mod/inspectvar.rsc @@ -36,7 +36,7 @@ :global CharacterMultiply; - :return ([ $CharacterMultiply " " ($Level * 2) ] . "-" . $Prefix . "-> " . $Value); + :return ([ $CharacterMultiply " " $Level ] . "-" . $Prefix . "-> " . $Value); } :local TypeOf [ :typeof $Input ];