SpindleyQ/honeylisp
1
1
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

oh yeah xor

Browse source
This commit is contained in:
Jeremy Penner 2021-08-11 23:59:04 -04:00
parent 81ea4a4410
commit 3c3d2ffd6b
2 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
neutgs/init.fnl
View file

@ -22,7 +22,7 @@
(printnum (& (- 10) 0xff))
(printnum (| 10 0x8000))
(printnum (^ 0xff00 0x0ff0))
(TextShutDown)
(IMShutDown)
(MMShutDown UserID)

1
ssc/init.fnl
View file

@ -270,6 +270,7 @@
first ...)))
:| (lambda [self first ...] (self:accumulation-op #(self:simple-accumulator :ora $...) first ...))
:& (lambda [self first ...] (self:accumulation-op #(self:simple-accumulator :and $...) first ...))
:^ (lambda [self first ...] (self:accumulation-op #(self:simple-accumulator :eor $...) first ...))
:= (lambda [self lhs rhs] (self:cmp-to-bool := lhs rhs))
:not= (lambda [self lhs rhs] (self:cmp-to-bool :not= lhs rhs))
:< (lambda [self lhs rhs] (self:cmp-to-bool :< lhs rhs))