From 0cb7c2b2fff4338ca6153473f3f5c409a818f293 Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Wed, 13 Mar 2019 20:05:51 +0100 Subject: final touch --- modules/language/python/module/_python.scm | 2 +- modules/language/python/spec.scm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/modules/language/python/module/_python.scm b/modules/language/python/module/_python.scm index 9a7a01e..d0b99a4 100644 --- a/modules/language/python/module/_python.scm +++ b/modules/language/python/module/_python.scm @@ -5,7 +5,7 @@ #:use-module ((oop pf-objects) #:select (

class-method static-method ref (set . pf-set) py-super-mac type object pylist-ref define-python-class - object-method py-dict)) + object-method py-dict rawdel)) #:use-module (language python exceptions ) #:use-module ((language python module string ) #:select ()) #:use-module ((language python module io ) #:select (open)) diff --git a/modules/language/python/spec.scm b/modules/language/python/spec.scm index 8f39e0c..7814d2c 100644 --- a/modules/language/python/spec.scm +++ b/modules/language/python/spec.scm @@ -25,8 +25,8 @@ (define port (open-file "log.txt" "a")) (with-output-to-port port (lambda () - (pretty-print x) (car (reverse x))))) - (close port)) + (pretty-print x) (car (reverse x)))) + (close port))) (car (reverse x))) (define (c int x) (pr (comp int (pr (p (pr x)))))) -- cgit v1.2.3