remove a modulo

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

@ -9,7 +9,7 @@
(define (parse 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)])
(if (bitwise-bit-set? int bit)
'taco

Loading…
Cancel
Save