diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-08-14 18:32:35 +0200 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-08-14 18:32:35 +0200 |
commit | e76b94e3c4b8a84a41d0e048568de498ddc61b13 (patch) | |
tree | c72a4bc3d9d80df9d1930368d936df87ce793b59 /modules/language/python/module/copy.scm | |
parent | 3fa12a7cdce8e7199329ff3a4c627cfc3becd0e1 (diff) |
gettext works
Diffstat (limited to 'modules/language/python/module/copy.scm')
-rw-r--r-- | modules/language/python/module/copy.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/modules/language/python/module/copy.scm b/modules/language/python/module/copy.scm index 2673e7e..795fff1 100644 --- a/modules/language/python/module/copy.scm +++ b/modules/language/python/module/copy.scm @@ -1,7 +1,12 @@ (define-module (language python module copy) + #:use-module (ice-9 match) #:export (Error copy deepcopy)) (define Error 'CopyError) -(define (copy x) ((@@ (logic guile-log persistance) copy) x)) -(define (deepcopy x) ((@@ (logic guile-log persistance) deep-copy) x)) +(define (s x) + (match x + ((#:obj x) x) + (x x))) +(define (copy x) (s ((@@ (logic guile-log persistance) copy) x))) +(define (deepcopy x) (S ((@@ (logic guile-log persistance) deep-copy) x))) |