Не работает <source lang="scheme">...</source> -- часть кода не отображается вообще. Например (см. https://www.altlinux.org/Alterator/objects), при использовании кода:

<source lang="scheme">
(define (make-point-2d x y)
                   (lambda (op . value)
                        (case op
                             ((get-x) x)
                             ((get-y) y)
                             ((set-x) (set! x (car value)))
                             ((set-y) (set! y (car value))))))

(define point (make-point-2d 3 4))
(point 'get-x) ==> вернёт 3
(point 'set-x 10) ; запомнит в своём окружении новое значение x
(point 'get-x) ==> вернёт 10</source>

в блоке отображается только строка:

; запомнит в своём окружении новое значение x