diff --git a/beautiful-racket/br/demo/wires/main.rkt b/beautiful-racket/br/demo/wires/main.rkt index be4bdc6..460dec3 100644 --- a/beautiful-racket/br/demo/wires/main.rkt +++ b/beautiful-racket/br/demo/wires/main.rkt @@ -36,7 +36,7 @@ num-or-wire (hash-ref! val-cache num-or-wire num-or-wire))))) -(define (mod-16bit x) (modulo x 65535)) +(define (mod-16bit x) (modulo x 65536)) (define-macro (define-16bit ID PROC-ID) #'(define ID (compose1 mod-16bit PROC-ID)))