blob: 599ae61d322fb6d052da27560205f64d1a2f006f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
From http://lists.nongnu.org/archive/html/chicken-hackers/2013-03/msg00074.html
--- chicken-4.8.0.3/csi.scm
+++ chicken-4.8.0.3/csi.scm
@@ -1019,13 +1019,11 @@ EOF
(cons (cadr p) (loop (cddr p)))) ) ]
[else '()] ) ) )
(define (loadinit)
- (let ([fn (##sys#string-append "./" init-file)])
- (if (file-exists? fn)
- (load fn)
- (let* ([prefix (chop-separator (or (get-environment-variable "HOME") "."))]
- [fn (string-append prefix "/" init-file)] )
- (when (file-exists? fn)
- (load fn) ) ) ) ) )
+ (and-let* ((home (get-environment-variable "HOME"))
+ ((not (string=? home ""))))
+ (let ((fn (string-append (chop-separator home) "/" init-file)))
+ (when (file-exists? fn)
+ (load fn) ) ) ) )
(define (evalstring str #!optional (rec (lambda _ (void))))
(let ((in (open-input-string str)))
(do ([x (read in) (read in)])
--
1.7.12
|
GitWeb
