remove warnings, reordering

1 files changed, 8 insertions, 7 deletions

diff --git a/modules/language/python/spec.scm b/modules/language/python/spec.scm
index 46ac186..4b05cbf 100644
--- a/modules/language/python/spec.scm
+++ b/modules/language/python/spec.scm
@@ -12,19 +12,20 @@
   #:use-module (language scheme compile-tree-il)
   #:use-module (language scheme decompile-tree-il)
   #:use-module (ice-9 rdelim)
-  #:export (python))
+  #:export (python dolog))
 
 ;;;
 ;;; Language definition
 ;;;
 
-
+(define dolog #f)
 (define (pr . x)
-  (define port (open-file "/home/stis/src/python-on-guile/log.txt" "a"))
-  (with-output-to-port port
-    (lambda ()
-      (pretty-print x) (car (reverse  x))))
-  (close port)
+  (when dolog
+    (define port (open-file "log.txt" "a"))
+    (with-output-to-port port
+      (lambda ()
+        (pretty-print x) (car (reverse  x))))
+    (close port))
   (car (reverse x)))
 
 (define (c int x) (pr (comp int (pr (p (pr x))))))