[PD-cvs] externals/k_guile global.scm,1.1,1.2

[ksvalast at users.sourceforge.net]

Update of /cvsroot/pure-data/externals/k_guile
In directory sc8-pr-cvs1:/tmp/cvs-serv2254

Modified Files:
	global.scm 
Log Message:
loads /etc/.k_guile.scm and HOME/.k_guile.scm

Index: global.scm
===================================================================
RCS file: /cvsroot/pure-data/externals/k_guile/global.scm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** global.scm	8 Jan 2004 14:55:24 -0000	1.1
--- global.scm	12 Jan 2004 13:10:17 -0000	1.2
***************
*** 28,36 ****
  
  
- 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Misc. functions
  ;;
  ;;
  (define (pd-display . args)
    (if (not (null? args))
--- 28,39 ----
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Misc. functions
  ;;
  ;;
+ (define (pd-load-if-exists filename)
+   (if (access? filename F_OK)
+       (load filename)))
+ 
  (define (pd-display . args)
    (if (not (null? args))
***************
*** 172,173 ****
--- 175,178 ----
  
  
+ (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"))