Overview
| Comment: | fix bug affecting redhat |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
b6ea4f981a526654afe9d6d30d5b462a |
| User & Date: | bjbarcla on 2018-02-09 15:17:06 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-02-09
| ||
| 15:29 | Updated megatest version check-in: f598a7e51e user: jmoon18 tags: v1.65, v1.6509 | |
| 15:17 | fix bug affecting redhat check-in: b6ea4f981a user: bjbarcla tags: v1.65 | |
|
2018-02-06
| ||
| 05:59 | Rebuilt manual check-in: c57a166878 user: matt tags: v1.65 | |
Changes
Modified common.scm from [9660178c65] to [9d055a50b8].
| ︙ | ︙ | |||
184 185 186 187 188 189 190 | (define *homehost-mutex* (make-mutex)) ;; Miscellaneous (define *triggers-mutex* (make-mutex)) ;; block overlapping processing of triggers (use posix-extras pathname-expand files) | > > > > > > > > > > > | > | 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 |
(define *homehost-mutex* (make-mutex))
;; Miscellaneous
(define *triggers-mutex* (make-mutex)) ;; block overlapping processing of triggers
(use posix-extras pathname-expand files)
;; this plugs a hole in posix-extras in recent chicken versions > 4.9)
(let-values (( (chicken-release-number chicken-major-version)
(apply values
(map string->number
(take
(string-split (chicken-version) ".")
2)))))
(let ((resolve-pathname-broken?
(or (> chicken-release-number 4)
(and (eq? 4 chicken-release-number) (> chicken-major-version 9)))))
(if resolve-pathname-broken?
(define ##sys#expand-home-path pathname-expand))))
(define (realpath x) (resolve-pathname (pathname-expand (or x "/dev/null")) ))
(define (common:get-this-exe-fullpath #!key (argv (argv)))
(let* ((this-script
(cond
((and (> (length argv) 2)
(string-match "^(.*/csi|csi)$" (car argv))
|
| ︙ | ︙ |