mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-26 13:51:50 +03:00
17 lines
367 B
Plaintext
17 lines
367 B
Plaintext
(system-include "carp_bool.h")
|
|
|
|
(defmodule Bool
|
|
(register = (Fn [Bool Bool] Bool))
|
|
(register copy (Fn [&Bool] Bool))
|
|
(register format (Fn [&String Bool] String))
|
|
(register not (Fn [Bool] Bool))
|
|
(register and (Fn [Bool Bool] Bool))
|
|
(register or (Fn [Bool Bool] Bool))
|
|
)
|
|
|
|
(defmodule RefBool
|
|
(defn = [a b]
|
|
(Bool.= @a @b)))
|
|
|
|
(defn not [a] (Bool.not a))
|