remove warnings, reordering
[software/python-on-guile.git] / modules / language / python / spec.scm
index 46ac186edec1bd754a912231b7c17c7910cede40..4b05cbf46978afc6db8849587ae2b49b19b26f06 100644 (file)
   #:use-module (language scheme compile-tree-il)
   #:use-module (language scheme decompile-tree-il)
   #:use-module (ice-9 rdelim)
   #: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
 ;;;
 
 
 ;;;
 ;;; Language definition
 ;;;
 
-
+(define dolog #f)
 (define (pr . x)
 (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))))))
   (car (reverse x)))
 
 (define (c int x) (pr (comp int (pr (p (pr x))))))