From 74185fbe1125bb97a4a78ddf9fef3c0203798f35 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Wed, 29 Dec 2010 15:44:12 +0900 Subject: [PATCH] simpler bitwise-not --- lib/srfi/33/bitwise.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/srfi/33/bitwise.scm b/lib/srfi/33/bitwise.scm index 4ae8840f..690b81c3 100644 --- a/lib/srfi/33/bitwise.scm +++ b/lib/srfi/33/bitwise.scm @@ -2,7 +2,7 @@ ;; Copyright (c) 2009 Alex Shinn. All rights reserved. ;; 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))))