mirror of
https://github.com/carp-lang/Carp.git
synced 2024-09-11 05:25:28 +03:00
core: add /= wherever = is defined
This commit is contained in:
parent
376dee89e2
commit
0990ed60cd
@ -31,4 +31,6 @@
|
||||
(< (- x y) 0.00001)
|
||||
(< (- y x) 0.00001)))
|
||||
|
||||
(defn /= [x y]
|
||||
(not (= x y)))
|
||||
)
|
||||
|
@ -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)))
|
||||
)
|
||||
|
@ -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))
|
||||
|
Loading…
Reference in New Issue
Block a user