mirror of
https://github.com/Ponce/slackbuilds
synced 2024-12-01 01:00:03 +01:00
26 lines
897 B
Diff
26 lines
897 B
Diff
|
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
|
||
|
|
|