Re: [Comm] alterator-alternatives падает

[Vladimir Istrati <bob@kp.md>]

Добавлю свои 5 копеек.


> Система бранч-4.1. При попытке войти в раздел "Альтернативы" в acc
> происходит падение альтератора со следующими симптомами:

...а также и в Network interfaces...

>
> $ acc
> socket path /tmp/alterator/browser-sock ...
> backtrace:
> In /usr/share/guile/1.6/alterator/presentation/container.scm:
>  212: 42* [#<procedure #f args>]
> 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  (update-constraints "write" "/alternatives")
>    ?: 57* [#<procedure #f (key . args)> unbound-variable #f ...]
> In /usr/share/guile/1.6/alterator/exit-handler.scm:
>   21: 58* (or (eq? key #) (begin # #))
>   22: 59  (begin (format #t "backtrace:~%") (display-backtrace # #))
>   23: 60  [display-backtrace ...
>   23: 61*  [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: update-constraints

Сообщения в консоли:

# acc
socket path /root/tmp/alterator/browser-sock ...
backtrace:
In /usr/share/guile/1.6/alterator/presentation/container.scm:
 212: 42* [#<procedure #f args>]
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 /net-junior]
   ?: 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  (update-constraints "write" "/net-junior")
   ?: 57* [#<procedure #f (key . args)> unbound-variable #f ...]
In /usr/share/guile/1.6/alterator/exit-handler.scm:
  21: 58* (or (eq? key #) (begin # #))
  22: 59  (begin (format #t "backtrace:~%") (display-backtrace # #))
  23: 60  [display-backtrace ...
  23: 61*  [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: 
update-constraints



> При этом через веб-интерфейс вроде нормально работает.

Аналогично...

Добавлю: это довольно давно. С новым фейсом - точно. Раньше - не помню. 
(как-то все ручками настраивалось... :)  Но ведь если он есть, то работать 
должен?!)

P.S. А слово "alterator" в обновлениях встречается чуть ли не через раз!  :)