Приветствую.

  Что-то у нас на www.altlinux.org код на scheme не отображается.
Например (см. <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

PS: Открыл <https://bugzilla.altlinux.org/show_bug.cgi?id=31338>

-- 

С уважением. Алексей.