From 79f06168aa626017b56c67f7ea8f101f3d15e5d2 Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Sat, 21 Oct 2017 16:16:02 +0200 Subject: refactoring functional objects --- modules/language/python/set.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'modules/language/python/set.scm') diff --git a/modules/language/python/set.scm b/modules/language/python/set.scm index ef4abe7..e9d7c63 100644 --- a/modules/language/python/set.scm +++ b/modules/language/python/set.scm @@ -23,7 +23,7 @@ (slot-set! self 'dict d) (for ((y : x)) () (pylist-set! d y #t)))))) - + (define pop (lambda (self) (call-with-values (lambda () (pylist-pop! (slot-ref self 'dict))) @@ -32,7 +32,7 @@ (define add (lambda (self k) (pylist-set! (slot-ref self 'dict) k #t))) - + (define copy (lambda (self) (let ((dict (py-copy (slot-ref self 'dict)))) -- cgit v1.2.3