Mercurial > gub

comparison patches/guile-2.0.0-mingw-compile-binary.patch @ 6506:6c1f7f6fb878

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mingw:guile: another go-path fix in boot-9.scm. Fixes compile of (user).
author Jan Nieuwenhuizen <janneke@gnu.org>
date Sat, 19 Mar 2011 10:01:26 +0100
parents ba506e08a7ce
children
comparison
equal deleted inserted replaced
6505:d3c62daa2581 6506:6c1f7f6fb878
185 + : full_filename, 185 + : full_filename,
186 + scm_car (*scm_loc_load_compiled_extensions))); 186 + scm_car (*scm_loc_load_compiled_extensions)));
187 if (scm_is_true (scm_stat (fallback, SCM_BOOL_F))) 187 if (scm_is_true (scm_stat (fallback, SCM_BOOL_F)))
188 { 188 {
189 compiled_filename = fallback; 189 compiled_filename = fallback;
190 --- guile-2.0.0.1/module/ice-9/boot-9.scm~ 2011-03-18 23:39:22.092737409 +0100
191 +++ guile-2.0.0.1/module/ice-9/boot-9.scm 2011-03-19 09:23:48.673392189 +0100
192 @@ -3277,7 +3277,11 @@ module '(ice-9 q) '(make-q q-length))}."
193 (string-append
194 %compile-fallback-path
195 ;; no need for '/' separator here, canon-path is absolute
196 - canon-path
197 + (if (eq? (string-ref canon-path 1) #\:)
198 + ;; on Mingw remove drive-letter separator `:' to
199 + ;; obtain valid file name
200 + (substring canon-path 2)
201 + canon-path)
202 (cond ((or (null? %load-compiled-extensions)
203 (string-null? (car %load-compiled-extensions)))
204 (warn "invalid %load-compiled-extensions"