core: add /= wherever = is defined

core/Double.carp

@@ -31,4 +31,6 @@
       (< (- x y) 0.00001)
       (< (- y x) 0.00001)))
 
+  (defn /= [x y]
+    (not (= x y)))
 )

core/Long.carp

@@ -17,5 +17,7 @@
   (register inc (λ [Long] Long))
   (register dec (λ [Long] Long))
   (register copy (λ [&Long] Long)) ;; TODO: Should not be needed when refs to value types are auto-converted to non-refs.
-  )
 
+  (defn /= [x y]
+    (not (= x y)))
+)

core/sdl.carp

@@ -78,7 +78,11 @@
 (register SDLK_DOWN SDL_Keycode)
 
 (defmodule Keycode
-  (register = (Fn [SDL_Keycode SDL_Keycode] Bool)))
+  (register = (Fn [SDL_Keycode SDL_Keycode] Bool))
+
+  (defn /= [x y]
+    (not (= x y)))
+)
 
 ;; Mouse
 (register SDL_GetMouseState (Fn [(Ptr Int) (Ptr Int)] Int))