modules/language/python/module/pickle.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

(define-module (language python module pickle)
  #:use-module (language python persist)
  #:export (dump dumps load loads name nameDeep))

(define* (dump obj file #:key (protocol #f) (fix_imports #t))
  ((@@ (logic guile-log persistance) dump) obj file))

(define* (dumps obj #:key (protocol #f) (fix_imports #t))
  ((@@ (logic guile-log persistance) dumps) obj))

(define* (load file
	       #:key (fix_imports #t) (encodeing "ASCII") (errors "strict"))
  ((@@ (logic guile-log persistance) load) file))

(define* (loads s
	       #:key (fix_imports #t) (encodeing "ASCII") (errors "strict"))
  ((@@ (logic guile-log persistance) loads) s))

(define-syntax-rule (name x)     (name-object      x))
(define-syntax-rule (nameDeep x) (name-object-deep x))