blob: b3a314ba54bad2bd8bbb808e2c27bae094ad74ca (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(.module:
lux)
(`` (signature: #export (Number n)
{#.doc "Everything that should be expected of a number type."}
(~~ (template [<name>]
[(: (-> n n n) <name>)]
[+] [-] [*] [/] [%]))
(~~ (template [<name>]
[(: (-> n n) <name>)]
[negate] [signum] [abs]))
))
|