Using the Error Function

packages/math/math.grnd

@@ -62,7 +62,7 @@ fun -int !factorial -int &in
     return $ans
 
     @error
-    divide 1 0 &store
+    error "Cannot find factorial of a negative integer"
 endfun
 
 fun -double !cos -double &in
@@ -206,4 +206,8 @@ fun -double !sqrt -double &in
     return $ans
 
     @error
-endfun
+    error "Cannot find square root of a negative double"
+endfun
+
+pusharg -0.5
+call !sqrt &store

packages/strings/strings.grnd

@@ -46,14 +46,11 @@ endfun
 fun -string !mid -string &str -int &idx -int &len
     set &ans ""
     lesser $idx 0 &store
-    if $store %end
+    if $store %negend
     greater $len 0 &store
     if $store %loop
     return ""
     @loop
-        getstrsize $str &store
-        equal $store $idx &store
-        if $store %end
         getstrcharat $str $idx &store
         add $ans $store &ans
         add $idx 1 &idx
@@ -65,7 +62,8 @@ fun -string !mid -string &str -int &idx -int &len
     @return
     return $ans
 
-    @end
+    @negend
+    error "Cannot start mid at a negative index"
 endfun
 
 fun -string !inBrackets -string &str -char &left -char &right -int &instance