Репозиторий Sisyphus
Последнее обновление: 1 октября 2023 | Пакетов: 18631 | Посещений: 36656400
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-register-fluids.patch
Скачать


diff --git a/alterator-lookout/interfaces/guile/context.scm b/alterator-lookout/interfaces/guile/context.scm
index 714c345..4044a72 100644
--- a/alterator-lookout/interfaces/guile/context.scm
+++ b/alterator-lookout/interfaces/guile/context.scm
@@ -1,6 +1,7 @@
 (define-module (alterator context)
   :use-module (srfi srfi-1)
   :use-module (alterator algo)
+  :use-module (alterator fluids)
   :export (lookout-context
            change-context
            from-context
@@ -13,7 +14,7 @@
 ;; * current stack of globals
 ;; * current ids , etc.
 
-(define lookout-context (make-fluid))
+(define lookout-context (make-registered-fluid))
 (fluid-set! lookout-context '())
 
 (define (change-context name value)
diff --git a/alterator-lookout/interfaces/guile/session/common.scm b/alterator-lookout/interfaces/guile/session/common.scm
index 401d6af..ecde336 100644
--- a/alterator-lookout/interfaces/guile/session/common.scm
+++ b/alterator-lookout/interfaces/guile/session/common.scm
@@ -3,6 +3,7 @@
   :use-module (srfi srfi-1)
 
   :use-module (alterator algo)
+  :use-module (alterator fluids)
   :use-module (alterator object)
   :use-module (alterator session state)
   :use-module (alterator session widgets)
@@ -26,7 +27,7 @@
 (define max-session-count 100)
 (define max-session-timeout 10)
 
-(define generic-session (make-fluid))
+(define generic-session (make-registered-fluid))
 (fluid-set! generic-session '())
 
 ;;live flag is an indicator of unused sessions
 
дизайн и разработка: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
текущий майнтейнер: Michael Shigorin