blob: 8c14e8e71c8a84a658ad08e4f75b5da72245f774 (
about) (
plain)
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))
|