mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-11 12:37:32 +03:00
14 lines
267 B
Plaintext
14 lines
267 B
Plaintext
(system-include "carp_bool.h")
|
|
|
|
(defmodule Bool
|
|
(register = (Fn [Bool Bool] Bool))
|
|
(register /= (Fn [Bool Bool] Bool))
|
|
(register copy (Fn [&Bool] Bool))
|
|
(register format (Fn [&String Bool] String))
|
|
)
|
|
|
|
(defmodule RefBool
|
|
(defn = [a b]
|
|
(Bool.= @a @b)))
|
|
)
|