aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/data/bit.lux
diff options
context:
space:
mode:
authorEduardo Julian2017-11-29 04:51:04 -0400
committerEduardo Julian2017-11-29 04:51:04 -0400
commit8c5cca122817bc63f4f84cc8351ced3cb67e5eea (patch)
tree8803dd3ed59ddcc6b964354fd312ab9e62e12cd8 /stdlib/source/lux/data/bit.lux
parent1ef969c8ce0f1a83ffa8d26d779806190ac3eced (diff)
- Changed the identifier separator, from the semi-colon (;) to the period/dot (.).
Diffstat (limited to '')
-rw-r--r--stdlib/source/lux/data/bit.lux22
1 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/lux/data/bit.lux b/stdlib/source/lux/data/bit.lux
index b0b31d2dd..4f9474a90 100644
--- a/stdlib/source/lux/data/bit.lux
+++ b/stdlib/source/lux/data/bit.lux
@@ -1,11 +1,11 @@
-(;module: [lux #- and or not])
+(.module: [lux #- and or not])
(def: #export width Nat +64)
## [Values]
(do-template [<short-name> <op> <doc> <type>]
[(def: #export (<short-name> param subject)
- {#;doc <doc>}
+ {#.doc <doc>}
(-> Nat <type> <type>)
(<op> subject param))]
@@ -18,40 +18,40 @@
)
(def: #export (count subject)
- {#;doc "Count the number of 1s in a bit-map."}
+ {#.doc "Count the number of 1s in a bit-map."}
(-> Nat Nat)
("lux bit count" subject))
(def: #export not
- {#;doc "Bitwise negation."}
+ {#.doc "Bitwise negation."}
(-> Nat Nat)
(let [mask (int-to-nat -1)]
(xor mask)))
(def: #export (clear idx input)
- {#;doc "Clear bit at given index."}
+ {#.doc "Clear bit at given index."}
(-> Nat Nat Nat)
- (;;and (;;not (shift-left idx +1))
+ (..and (..not (shift-left idx +1))
input))
(do-template [<name> <op> <doc>]
[(def: #export (<name> idx input)
- {#;doc <doc>}
+ {#.doc <doc>}
(-> Nat Nat Nat)
(<op> (shift-left idx +1) input))]
- [set ;;or "Set bit at given index."]
- [flip ;;xor "Flip bit at given index."]
+ [set ..or "Set bit at given index."]
+ [flip ..xor "Flip bit at given index."]
)
(def: #export (set? idx input)
(-> Nat Nat Bool)
- (|> input (;;and (shift-left idx +1)) (n/= +0) ;not))
+ (|> input (..and (shift-left idx +1)) (n/= +0) .not))
(do-template [<name> <main> <comp>]
[(def: #export (<name> distance input)
(-> Nat Nat Nat)
- (;;or (<main> distance input)
+ (..or (<main> distance input)
(<comp> (n/- (n/% width distance)
width)
input)))]