socket.py
[software/python-on-guile.git] / python.diff
index aa2ffd7f888e6f7c0afa61fc4654ab9c54b7a8a4..ec71cf7e38a219695558d351298625dde754b730 100644 (file)
@@ -1,8 +1,8 @@
 diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
 diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
-index c110512f0..d5d63a9e0 100644
+index c110512f0..83a3b479d 100644
 --- a/module/system/base/compile.scm
 +++ b/module/system/base/compile.scm
 --- a/module/system/base/compile.scm
 +++ b/module/system/base/compile.scm
-@@ -132,9 +132,30 @@
+@@ -132,14 +132,38 @@
           (and (false-if-exception (ensure-directory (dirname f)))
                f))))
  
           (and (false-if-exception (ensure-directory (dirname f)))
                f))))
  
@@ -26,7 +26,9 @@ index c110512f0..d5d63a9e0 100644
 +              default)))
 +      default))
 +      
 +              default)))
 +      default))
 +      
-+      
++
++(define %in-compile (make-fluid #f))
++
  (define* (compile-file file #:key
                         (output-file #f)
 -                       (from (current-language))
  (define* (compile-file file #:key
                         (output-file #f)
 -                       (from (current-language))
@@ -34,6 +36,13 @@ index c110512f0..d5d63a9e0 100644
                         (to 'bytecode)
                         (env (default-environment from))
                         (opts '())
                         (to 'bytecode)
                         (env (default-environment from))
                         (opts '())
+                        (canonicalization 'relative))
+-  (with-fluids ((%file-port-name-canonicalization canonicalization))
++  (with-fluids ((%in-compile #t)
++                (%file-port-name-canonicalization canonicalization))
+     (let* ((comp (or output-file (compiled-file-name file)
+                      (error "failed to create path for auto-compiled file"
+                             file)))
 diff --git a/module/system/base/message.scm b/module/system/base/message.scm
 index 979291c1e..c0d639235 100644
 --- a/module/system/base/message.scm
 diff --git a/module/system/base/message.scm b/module/system/base/message.scm
 index 979291c1e..c0d639235 100644
 --- a/module/system/base/message.scm