guile-pstk

commit 70396a6c49be6829b8fb6c3815bcb06dd17b2874
parent 58d4028ab876a6dcc29c43f8583a1de412687880
Author: KikyTokamuro <kiky.tokamuro@yandex.ru>
Date:   Fri, 18 Mar 2022 22:33:48 +0300

Updated add-to-load-path in examples

Diffstat:
M
examples/canvas.scm
 | 
5
++++-
M
examples/hello-color.scm
 | 
5
++++-
M
examples/hello.scm
 | 
5
++++-
M
examples/notebook.scm
 | 
5
++++-
M
examples/slider.scm
 | 
5
++++-
M
examples/themes.scm
 | 
5
++++-
M
examples/ttt.scm
 | 
5
++++-
M
examples/weather.scm
 | 
5
++++-

8 files changed, 32 insertions(+), 8 deletions(-)
diff --git a/examples/canvas.scm b/examples/canvas.scm
@@ -2,7 +2,10 @@
 ; Copyright (C) 2022 Daniil Archangelsky aka Kiky Tokamuro
 ; See the PS/Tk license for conditions of use.
 
-(add-to-load-path "../")
+(add-to-load-path
+ (string-append
+  (dirname (current-filename))
+  "/../"))
 
 (use-modules (pstk))
 
diff --git a/examples/hello-color.scm b/examples/hello-color.scm
@@ -3,7 +3,10 @@
 ; Copyright (C) 2006 Nils M Holm
 ; See the PS/Tk license for conditions of use.
 
-(add-to-load-path "../")
+(add-to-load-path
+ (string-append
+  (dirname (current-filename))
+  "/../"))
 
 (use-modules (pstk))
 
diff --git a/examples/hello.scm b/examples/hello.scm
@@ -3,7 +3,10 @@
 ; Copyright (C) 2006 Nils M Holm
 ; See the PS/Tk license for conditions of use.
 
-(add-to-load-path "../")
+(add-to-load-path
+ (string-append
+  (dirname (current-filename))
+  "/../"))
 
 (use-modules (pstk))
 
diff --git a/examples/notebook.scm b/examples/notebook.scm
@@ -2,7 +2,10 @@
 ; Copyright (C) 2022 Daniil Archangelsky aka Kiky Tokamuro
 ; See the PS/Tk license for conditions of use.
 
-(add-to-load-path "../")
+(add-to-load-path
+ (string-append
+  (dirname (current-filename))
+  "/../"))
 
 (use-modules (pstk))
 
diff --git a/examples/slider.scm b/examples/slider.scm
@@ -2,7 +2,10 @@
 ; Copyright (C) 2022 Daniil Archangelsky aka Kiky Tokamuro
 ; See the PS/Tk license for conditions of use.
 
-(add-to-load-path "../")
+(add-to-load-path
+ (string-append
+  (dirname (current-filename))
+  "/../"))
 
 (use-modules (pstk)
 	     (ice-9 format))
diff --git a/examples/themes.scm b/examples/themes.scm
@@ -3,7 +3,10 @@
 ; Copyright (C) 2007 Nils M Holm
 ; See the PS/Tk license for conditions of use.
 
-(add-to-load-path "../")
+(add-to-load-path
+ (string-append
+  (dirname (current-filename))
+  "/../"))
 
 (use-modules (pstk))
 
diff --git a/examples/ttt.scm b/examples/ttt.scm
@@ -3,7 +3,10 @@
 ; Copyright (C) 2006 Nils M Holm
 ; See the PS/Tk license for conditions of use.
 
-(add-to-load-path "../")
+(add-to-load-path
+ (string-append
+  (dirname (current-filename))
+  "/../"))
 
 (use-modules (pstk))
 
diff --git a/examples/weather.scm b/examples/weather.scm
@@ -2,7 +2,10 @@
 ; Copyright (C) 2022 Daniil Archangelsky aka Kiky Tokamuro
 ; See the PS/Tk license for conditions of use.
 
-(add-to-load-path "../")
+(add-to-load-path
+ (string-append
+  (dirname (current-filename))
+  "/../"))
 
 (use-modules (pstk)
 	     (web client)