Репозиторий Sisyphus
Последнее обновление: 1 октября 2023 | Пакетов: 18631 | Посещений: 36657133
en ru br
Репозитории ALT
S:2.8.1-alt1
5.1: 2.1-alt4
4.1: 1.2-alt3.M41.3
4.0: 0.2-alt10.M40.1
www.altlinux.org/Changes

Группа :: Система/Настройка/Прочее
Пакет: alterator-lookout

 Главная   Изменения   Спек   Патчи   Sources   Загрузить   Gear   Bugs and FR  Repocop 

Патч: alterator-lookout-2.6-shift-reset.patch
Скачать


diff --git a/alterator-lookout/interfaces/guile/lookout.scm b/alterator-lookout/interfaces/guile/lookout.scm
index 4edd3e8..f7bbe54 100644
--- a/alterator-lookout/interfaces/guile/lookout.scm
+++ b/alterator-lookout/interfaces/guile/lookout.scm
@@ -9,6 +9,7 @@
   :use-module (alterator plist)
   :use-module (alterator str)
   :use-module (alterator woo)
+  :use-module (ice-9 control)
 
   ;;simplest message passing
   :use-module (alterator mailbox)
@@ -41,9 +42,10 @@
                      (begin
                        (set-lang session
                                  (string-cut (or (cond-plistq 'language url-args) "en_US") #\;))
-                       (start session
-                              (thunk (apply document:popup url url-args) (session-close)))
-                       (auth-permission-granted '(alterator-request action "re-get")))
+                       (reset
+                         (start session
+                                (thunk (apply document:popup url url-args) (session-close)))
+                         (auth-permission-granted '(alterator-request action "re-get"))))
                      '(auth-answer content ((command action "overflow")))))))
 
 ;;process incoming lookout message
 
дизайн и разработка: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
текущий майнтейнер: Michael Shigorin