modules/language/python/module/copy.scm


1
2
3
4
5
6
7
8
9
10
11
12

(define-module (language python module copy)
  #:use-module (ice-9 match)
  #:export (Error copy deepcopy))

(define Error 'CopyError)

(define (s x)
  (match x
    ((#:obj x) x)
    (x x)))
(define (copy     x) (s ((@@ (persist persistance)      copy) x)))
(define (deepcopy x) (S ((@@ (persist persistance) deep-copy) x)))