[devel] I: www.altlinux.org: Код на scheme не отображается.

[Aleksey Avdeev <solo@solin.spb.ru>]

[-- Attachment #1: Type: text/plain, Size: 1078 bytes --]

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

  Что-то у нас на 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>

-- 

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


[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 278 bytes --]