Mercurial > gub

annotate patches/guile-1.9.15-mingw-compile.patch @ 6489:840b403f7762

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mingw::guile: another round of 1.9 patches.
author Jan Nieuwenhuizen <janneke@gnu.org>
date Mon, 07 Feb 2011 12:51:53 +0100
parents 919f33e40679
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
6485
919f33e40679 mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
1 --- guile-1.9.15/module/system/base/compile.scm~ 2011-01-26 23:03:16.000000000 +0100
6489
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents: 6485
diff changeset
2 +++ guile-1.9.15/module/system/base/compile.scm 2011-02-04 12:04:15.765055771 +0100
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents: 6485
diff changeset
3 @@ -100,11 +100,16 @@
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents: 6485
diff changeset
4 ".go")
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents: 6485
diff changeset
5 (else (car %load-compiled-extensions))))
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents: 6485
diff changeset
6 (and %compile-fallback-path
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents: 6485
diff changeset
7 - (let ((f (string-append
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents: 6485
diff changeset
8 + (let* ((c (canonicalize-path file))
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents: 6485
diff changeset
9 + (f (string-append
6485
919f33e40679 mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
10 %compile-fallback-path
919f33e40679 mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
11 ;; no need for '/' separator here, canonicalize-path
919f33e40679 mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
12 ;; will give us an absolute path
6489
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents: 6485
diff changeset
13 - (canonicalize-path file)
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents: 6485
diff changeset
14 + (if (eq? (string-ref c 1) #\:)
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents: 6485
diff changeset
15 + ;; on Mingw remove drive-letter separator `:' to
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents: 6485
diff changeset
16 + ;; obtain valid file name
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents: 6485
diff changeset
17 + (substring c 2)
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents: 6485
diff changeset
18 + c)
6485
919f33e40679 mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
19 (compiled-extension))))
919f33e40679 mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
20 (and (false-if-exception (ensure-writable-dir (dirname f)))
6489
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents: 6485
diff changeset
21 f))))