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"))