remove a modulo

v6.3-exception
Matthew Butterick 7 years ago
parent 30200b7551
commit fb3db2b415

@ -9,7 +9,7 @@
(define (parse toks) (define (parse toks)
(for/list ([tok (in-list toks)]) (for/list ([tok (in-list toks)])
(define int (modulo (char->integer tok) 128)) (define int (char->integer tok))
(for/list ([bit (in-range 7)]) (for/list ([bit (in-range 7)])
(if (bitwise-bit-set? int bit) (if (bitwise-bit-set? int bit)
'taco 'taco

Loading…
Cancel
Save