remove warnings, reordering
[software/python-on-guile.git] / modules / language / python / module / copy.scm
1 (define-module (language python module copy)
2 #:use-module (ice-9 match)
3 #:export (Error copy deepcopy))
4
5 (define Error 'CopyError)
6
7 (define (s x)
8 (match x
9 ((#:obj x) x)
10 (x x)))
11 (define (copy x) (s ((@@ (persist persistance) copy) x)))
12 (define (deepcopy x) (s ((@@ (persist persistance) deep-copy) x)))