slackbuilds_ponce/development/chicken/patches/01_all_CVE-2013-1874.patch

26 lines
897 B
Diff
Raw Normal View History

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