diff options
Diffstat (limited to 'modules/language/python/spec.scm')
-rw-r--r-- | modules/language/python/spec.scm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/modules/language/python/spec.scm b/modules/language/python/spec.scm index 1389165..c22c0b4 100644 --- a/modules/language/python/spec.scm +++ b/modules/language/python/spec.scm @@ -1,5 +1,5 @@ (define-module (language python spec) - #:use-module (language python parser) + #:use-module (parser stis-parser lang python3-parser) #:use-module (language python compile) #:use-module (rnrs io ports) #:use-module (ice-9 pretty-print) @@ -14,7 +14,13 @@ ;;; Language definition ;;; -(define (pr . x) (pretty-print x) (car (reverse 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) + (car (reverse x))) (define (c x) (pr (comp (pr (p (pr x)))))) (define (cc port x) @@ -33,7 +39,7 @@ (lambda () ;; Ideally we'd duplicate the whole module hierarchy so that `set!', ;; `fluid-set!', etc. don't have any effect in the current environment. - (let ((m (make-fresh-user-module))) + (let ((m (make-fresh-user-module))) ;; Provide a separate `current-reader' fluid so that ;; compile-time changes to `current-reader' are ;; limited to the current compilation unit. |