pickle
[software/python-on-guile.git] / modules / language / python / module / pickle.scm
1 (define-module (language python module pickle)
2 #:use-module (language python persist)
3 #:export (dump dumps load loads name nameDeep))
4
5 (define* (dump obj file #:key (protocol #f) (fix_imports #t))
6 ((@@ (logic guile-log persistance) dump) obj file))
7
8 (define* (dumps obj #:key (protocol #f) (fix_imports #t))
9 ((@@ (logic guile-log persistance) dumps) obj))
10
11 (define* (load file
12 #:key (fix_imports #t) (encodeing "ASCII") (errors "strict"))
13 ((@@ (logic guile-log persistance) load) file))
14
15 (define* (loads s
16 #:key (fix_imports #t) (encodeing "ASCII") (errors "strict"))
17 ((@@ (logic guile-log persistance) loads) s))
18
19 (define-syntax-rule (name x) (name-object x))
20 (define-syntax-rule (nameDeep x) (name-object-deep x))