diff options
author | Kjetil S. Matheussen <ksvalast@users.sourceforge.net> | 2004-01-12 13:10:17 +0000 |
---|---|---|
committer | Kjetil S. Matheussen <ksvalast@users.sourceforge.net> | 2004-01-12 13:10:17 +0000 |
commit | e4a6ea79702e5f0356a7c5a04c54d12a09eb704b (patch) | |
tree | 223e86f32ae3981cf9aba7d37e94ba9dc1e8cd5a | |
parent | baecc2dc2449d04b44917a5114bf71262d65da30 (diff) |
loads /etc/.k_guile.scm and HOME/.k_guile.scm
svn path=/trunk/externals/k_guile/; revision=1255
-rw-r--r-- | global.scm | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -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")) |