Mercurial > gub
annotate patches/guile-1.9.15-mingw-compile.patch @ 6485:919f33e40679
mingw::guile: fix socket and compiling.
author | Jan Nieuwenhuizen <janneke@gnu.org> |
---|---|
date | Thu, 03 Feb 2011 23:57:03 +0100 |
parents | |
children | 2de38498ec75 |
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 |
919f33e40679
mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff
changeset
|
2 +++ guile-1.9.15/module/system/base/compile.scm 2011-02-03 23:29:08.090142894 +0100 |
919f33e40679
mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff
changeset
|
3 @@ -104,6 +104,7 @@ |
919f33e40679
mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff
changeset
|
4 %compile-fallback-path |
919f33e40679
mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff
changeset
|
5 ;; no need for '/' separator here, canonicalize-path |
919f33e40679
mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff
changeset
|
6 ;; will give us an absolute path |
919f33e40679
mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff
changeset
|
7 + "/" ;; which does not start with / on MINGW |
919f33e40679
mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff
changeset
|
8 (canonicalize-path file) |
919f33e40679
mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff
changeset
|
9 (compiled-extension)))) |
919f33e40679
mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff
changeset
|
10 (and (false-if-exception (ensure-writable-dir (dirname f))) |