From cfb711239fa26995b5d8244e06c80c596ae5c828 Mon Sep 17 00:00:00 2001 From: Dimitri Lozeve Date: Mon, 9 Oct 2023 21:31:42 +0200 Subject: [PATCH] Fix imports for Gerbil 0.18 --- uniplot/braille.ss | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/uniplot/braille.ss b/uniplot/braille.ss index 05547c9..af209a7 100644 --- a/uniplot/braille.ss +++ b/uniplot/braille.ss @@ -3,8 +3,6 @@ (import :std/iter :std/misc/list :std/misc/string - :gerbil/gambit/hvectors - :gerbil/gambit/bits :dlozeve/fancy/format) (def +braille-signs+ @@ -23,7 +21,7 @@ (def c (u8vector-ref (vector-ref canvas (quotient i 4)) (quotient j 2))) (def offset (u8vector-ref +braille-signs+ (+ (remainder i 4) (* 4 (remainder j 2))))) - (any-bits-set? c offset)) + (not (zero? (bitwise-and c offset)))) (def (braille-canvas-set! canvas i j v) (def old-offset (u8vector-ref (vector-ref canvas (quotient i 4)) (quotient j 2)))