case instead of is_a

enso-org · Nov 5, 2024 · 5cb0fc2 · 5cb0fc2
1 parent 2aefd64
commit 5cb0fc2
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/distribution/lib/Standard/Base/0.0.0-dev/src/Data/Dictionary.enso b/distribution/lib/Standard/Base/0.0.0-dev/src/Data/Dictionary.enso
@@ -169,8 +169,11 @@ type Dictionary key value
     insert : Any -> Any -> Boolean -> Dictionary
     insert self key=(Missing_Argument.throw "key") value=(Missing_Argument.throw "value") no_warning:Boolean=False =
         new_dict = self.insert_builtin key value
-        if (key.is_a Float . not) || no_warning then new_dict else
-            Warning.attach (Float_Used_As_Dictionary_Key.Warning key) new_dict
+        case key of
+            _ : Float ->
+                if no_warning then new_dict else
+                    Warning.attach (Float_Used_As_Dictionary_Key.Warning key) new_dict
+            _ -> new_dict
 
     ## GROUP Selections
        ICON table_clean