При нажатии в альтераторе(центр управления системой)"Альтернативы" вылетает версия alterator-alternatives 1.0-alt2.M41.2 Вывод в консоли: backtrace: In /usr/share/guile/1.6/alterator/object.scm: 47: 43 (let ((proc (call-proc))) (if (procedure? proc) (apply proc args) proc)) In unknown file: ... ?: 44 (let ((url (cf current-module))) (frame:call-on-leave) ...) ?: 45* [frame:replace /alternatives] ?: 46 (let ((page #)) (and page (begin # # # ...))) In /usr/share/guile/1.6/alterator/lookout/goto.scm: ... 60: 47 [with-fluids* (#<fluid 11>) (((globals # #))) #<procedure #f ()>] In unknown file: ?: 48* [#<procedure #f ()>] In /usr/share/guile/1.6/alterator/lookout/goto.scm: 61: 49* [clean-widget #<procedure #f args> #<procedure #f ()>] In unknown file: ?: 50 (letrec (# # # ...) (simple-notify widget # ...) ...) In /usr/share/guile/1.6/alterator/presentation/container.scm: ... 212: 51 [with-fluids* (#<fluid 11>) (((globals # #))) #<procedure #f ()>] In unknown file: ?: 52* [#<procedure #f ()>] In /usr/share/guile/1.6/alterator/presentation/container.scm: 212: 53* [#<procedure #f args>] In /usr/share/guile/1.6/alterator/object.scm: 47: 54 (let ((proc (call-proc))) (if (procedure? proc) (apply proc args) proc)) In unknown file: ... ?: 55 [#<procedure #f ()>] ?: 56* [init-alternatives] ?: 57 (catch/message (lambda () (alternativeslist enumref "/alternatives") ...)) ?: 58* [#<procedure #f (key . args)> unbound-variable #f ...] In /usr/share/guile/1.6/alterator/exit-handler.scm: 21: 59* (or (eq? key #) (begin # #)) 22: 60 (begin (format #t "backtrace:~%") (display-backtrace # #)) 23: 61 [display-backtrace ... 23: 62* [gsubr-apply #<primitive-procedure make-stack> #t] /usr/share/guile/1.6/alterator/exit-handler.scm:27:6: In procedure apply in expression (apply throw args): /usr/share/guile/1.6/alterator/exit-handler.scm:27:6: Unbound variable: catch/message
Теперь всё работает