diff options
| author | Erik Falor <ewfalor@gmail.com> | 2013-10-26 18:54:28 -0500 |
|---|---|---|
| committer | Robby Workman <rworkman@slackbuilds.org> | 2013-10-27 23:38:56 -0500 |
| commit | 7009dc6a71a257db0d29bd8ae7d7d3e03c99fc71 (patch) | |
| tree | d2e027e4f8b47543d0ef8fc9c8a08868e2fbdf1a /development/chicken/patches/01_all_CVE-2013-1874.patch | |
| parent | 21963f3ca7bca854cc4adc0e7136510cd4db4d5a (diff) | |
development/chicken: Updated for version 4.8.0.4.
Signed-off-by: Robby Workman <rworkman@slackbuilds.org>
Diffstat (limited to 'development/chicken/patches/01_all_CVE-2013-1874.patch')
| -rw-r--r-- | development/chicken/patches/01_all_CVE-2013-1874.patch | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/development/chicken/patches/01_all_CVE-2013-1874.patch b/development/chicken/patches/01_all_CVE-2013-1874.patch new file mode 100644 index 0000000000..599ae61d32 --- /dev/null +++ b/development/chicken/patches/01_all_CVE-2013-1874.patch @@ -0,0 +1,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 + |