;; maybe-buggy5.scm
(if #t
    (begin
      (define variable 0)
      #f)
    #f)


;; produces:

➤ csc5 maybe-buggy5.scm 

Error: (buggy5.scm:5) - toplevel definition of `variable' in non-toplevel context

Error: shell command terminated with non-zero exit status 256: '/home/klm/.chickens/master/bin/chicken5' 'buggy5.scm' -output-file 'buggy5.c'

;; shouldn't that be ok?