diff options
Diffstat (limited to 'modules/language/python/spec.scm')
-rw-r--r-- | modules/language/python/spec.scm | 15 |
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)))))) |