1 files changed, 4 insertions, 4 deletions
diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm
index 973ae3a..6c46ea1 100644
--- a/modules/language/python/compile.scm
+++ b/modules/language/python/compile.scm
@@ -21,7 +21,7 @@
   #:use-module ((language python format2) #:select (fnm))
   #:use-module ((language python with) #:select ())
   #:use-module (ice-9 pretty-print)
-  #:export (comp exit-fluid exit-prompt pks))
+  #:export (comp exit-fluid exit-prompt pks do-pr))
 
 (define-syntax-rule (aif it p x y) (let ((it p)) (if it x y)))
 
@@ -294,12 +294,12 @@
       (fold f (f (car l) init) (cdr l))
       init))
 
-(define do-pr #t)
+(define do-pr #f)
 
 (define (pr . x)
   (if do-pr
       (let ()
-        (define port (open-file "/home/stis/src/python-on-guile/modules/log.txt" "a"))
+        (define port (open-file "log.txt" "a"))
         (with-output-to-port port
           (lambda ()
             (pretty-print (syntax->datum x))))
@@ -307,7 +307,7 @@
   (car (reverse x)))
 
 (define (pf x)
-  (define port (open-file "/home/stis/src/python-on-guile/modules/compile.log" "a"))
+  (define port (open-file "compile.log" "a"))
   (with-output-to-port port
     (lambda () (pretty-print (syntax->datum x)) x))
   (close port)