Fix error messages

cruessler · Feb 8, 2024 · cc5e75e · cc5e75e
1 parent eaa4ca7
commit cc5e75e
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/app/elm/Vm/Primitive.elm b/app/elm/Vm/Primitive.elm
@@ -657,7 +657,7 @@ array values =
         initializeItems value =
             Type.toInt value
                 |> Result.map (\len -> Array.initialize len (always (Type.List [])))
-                |> Result.mapError (always <| WrongInput "always" (Type.toDebugString value))
+                |> Result.mapError (always <| WrongInput "array" (Type.toDebugString value))
 
         initializeWithItemsAndOrigin : Array Type.Value -> Int -> Type.Value
         initializeWithItemsAndOrigin items origin =
@@ -671,7 +671,7 @@ array values =
 
                 origin =
                     Type.toInt second
-                        |> Result.mapError (always <| WrongInput "always" (Type.toDebugString second))
+                        |> Result.mapError (always <| WrongInput "array" (Type.toDebugString second))
             in
             Result.map2 initializeWithItemsAndOrigin items origin
 

diff --git a/tests/Test/Error.elm b/tests/Test/Error.elm
@@ -51,6 +51,8 @@ functionsWithInvalidArguments =
 
         -- In UCBLogo, passing an array to `butfirst` causes a crash.
         , printsError "print butfirst (array 2 10)" "butfirst doesn’t like {[] []} as input"
+        , printsError "print (array 2 \"a)" "array doesn’t like a as input"
+        , printsError "print (array \"a \"b)" "array doesn’t like a as input"
         , printsError "print first []" "first doesn’t like [] as input"
         , printsError "print first butfirst \"a" "first doesn’t like || as input"
         , printsError "first butfirst \"a" "first doesn’t like || as input"