From e4a6ea79702e5f0356a7c5a04c54d12a09eb704b Mon Sep 17 00:00:00 2001
From: "Kjetil S. Matheussen" <ksvalast@users.sourceforge.net>
Date: Mon, 12 Jan 2004 13:10:17 +0000
Subject: loads /etc/.k_guile.scm and HOME/.k_guile.scm

svn path=/trunk/externals/k_guile/; revision=1255
---
 global.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/global.scm b/global.scm
index 121852e..334e04e 100644
--- a/global.scm
+++ b/global.scm
@@ -27,11 +27,14 @@
 (use-modules (ice-9 stack-catch))
 
 
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Misc. functions
 ;;
 ;;
+(define (pd-load-if-exists filename)
+  (if (access? filename F_OK)
+      (load filename)))
+
 (define (pd-display . args)
   (if (not (null? args))
       (begin
@@ -171,3 +174,5 @@
 	       pd-display-errorfunc))
 
 
+(pd-backtrace-run1 pd-load-if-exists "/etc/.k_guile.scm")
+(pd-backtrace-run1 pd-load-if-exists (string-append (getenv "HOME") "/.k_guile.scm"))
-- 
cgit v1.2.1