Closed dyoo closed 12 years ago
(define (fizzbuzz)
(letrec ([loop (lambda (i)
(begin
(when (and (not (= (modulo i 3) 0))
(not (= (modulo i 5) 0)))
(display i))
(when (= (modulo i 3) 0)
(display "fizz"))
(when (= (modulo i 5) 0)
(display "buzz"))
(newline)
(when (< i 100)
(loop (add1 i)))))])
(loop 0)))
is my test program, and it is exposing a LOT of compiler bugs.
bug corrected in d932422cb67620f004140da4222a9d57618168b1, a282b0a7b3bdd58c0ed0dbe4613aa624a0b2fc04, and f532e9fa4fe868d75df75226b0fc01d31e7ec497
The error says something of the form:
map: expects at least 2 arguments, given 1: # mzscheme-vm.ss:733:43
when I was editing some program. That is REALLY BAD and needs an immediate fix.