Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-12 15:37:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

simpler bitwise-not

Browse source
This commit is contained in:
Alex Shinn 2010-12-29 15:44:12 +09:00
parent ce2bf8ce77
commit 74185fbe11
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/srfi/33/bitwise.scm
View file

@ -2,7 +2,7 @@
;; Copyright (c) 2009 Alex Shinn. All rights reserved. ;; Copyright (c) 2009 Alex Shinn. All rights reserved.
;; BSD-style license: http://synthcode.com/license.txt ;; BSD-style license: http://synthcode.com/license.txt
(define (bitwise-not i) (- (+ i 1))) (define (bitwise-not i) (- -1 i))
(define (bitwise-complement f) (lambda args (bitwise-not (apply f args)))) (define (bitwise-complement f) (lambda args (bitwise-not (apply f args))))