mirror of
https://github.com/carp-lang/Carp.git
synced 2024-09-19 01:18:40 +03:00
13 lines
265 B
Plaintext
13 lines
265 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)))
|