original commit: 684bdc1a066480823e4ca24dd1f9b16b75db487c
This commit is contained in:
Matthew Flatt 2001-05-15 22:31:08 +00:00
parent 42e0d52ead
commit 303d5b9892

View File

@ -1329,7 +1329,7 @@
(unless (= (+ code (vector-ref bl_count MAX_BITS)-1)
(- (<< 1 MAX_BITS) 1))
"inconsistent bit counts"))
(DEBUG (Tracev stderr "\~ngen_codes: max_code ~a " max_code))
(DEBUG (Tracev stderr "\ngen_codes: max_code ~a " max_code))
(for 0 <= max_code add1
(lambda (n)