diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-12-17 20:45:23 +0100 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-12-17 20:45:23 +0100 |
| commit | 4a87b4b6d8f2ac76130b3cbfd9606be15c978a00 (patch) | |
| tree | e9ada81ed81f55c3b097666da2a66b870815e88d /modules | |
| parent | 3f1469edae0a2237700ed3c08be950486961d339 (diff) | |
use guile-persist instead of guile-log
Diffstat (limited to 'modules')
| -rw-r--r-- | modules/language/python/module/copy.scm | 4 | ||||
| -rw-r--r-- | modules/language/python/module/pickle.scm | 8 | ||||
| -rw-r--r-- | modules/language/python/persist.scm | 2 | ||||
| -rw-r--r-- | modules/oop/pf-objects.scm | 2 |
4 files changed, 8 insertions, 8 deletions
diff --git a/modules/language/python/module/copy.scm b/modules/language/python/module/copy.scm index 795fff1..9393aa0 100644 --- a/modules/language/python/module/copy.scm +++ b/modules/language/python/module/copy.scm @@ -8,5 +8,5 @@ (match x ((#:obj x) x) (x x))) -(define (copy x) (s ((@@ (logic guile-log persistance) copy) x))) -(define (deepcopy x) (S ((@@ (logic guile-log persistance) deep-copy) x))) +(define (copy x) (s ((@@ (persist persistance) copy) x))) +(define (deepcopy x) (S ((@@ (persist persistance) deep-copy) x))) diff --git a/modules/language/python/module/pickle.scm b/modules/language/python/module/pickle.scm index 8c14e8e..8ed7f6d 100644 --- a/modules/language/python/module/pickle.scm +++ b/modules/language/python/module/pickle.scm @@ -3,18 +3,18 @@ #:export (dump dumps load loads name nameDeep)) (define* (dump obj file #:key (protocol #f) (fix_imports #t)) - ((@@ (logic guile-log persistance) dump) obj file)) + ((@@ (persist persistance) dump) obj file)) (define* (dumps obj #:key (protocol #f) (fix_imports #t)) - ((@@ (logic guile-log persistance) dumps) obj)) + ((@@ (persist persistance) dumps) obj)) (define* (load file #:key (fix_imports #t) (encodeing "ASCII") (errors "strict")) - ((@@ (logic guile-log persistance) load) file)) + ((@@ (persist persistance) load) file)) (define* (loads s #:key (fix_imports #t) (encodeing "ASCII") (errors "strict")) - ((@@ (logic guile-log persistance) loads) s)) + ((@@ (persist persistance) loads) s)) (define-syntax-rule (name x) (name-object x)) (define-syntax-rule (nameDeep x) (name-object-deep x)) diff --git a/modules/language/python/persist.scm b/modules/language/python/persist.scm index 4ee46fc..1835201 100644 --- a/modules/language/python/persist.scm +++ b/modules/language/python/persist.scm @@ -4,7 +4,7 @@ #:use-module (ice-9 pretty-print) #:use-module (oop goops) #:use-module (oop pf-objects) - #:use-module (logic guile-log persistance) + #:use-module (persist persistance) #:re-export(pcopyable? deep-pcopyable? pcopy deep-pcopy name-object name-object-deep) #:export (reduce cp red cpit)) diff --git a/modules/oop/pf-objects.scm b/modules/oop/pf-objects.scm index 382cdea..e2f0d8b 100644 --- a/modules/oop/pf-objects.scm +++ b/modules/oop/pf-objects.scm @@ -5,7 +5,7 @@ #:use-module (system base message) #:use-module (language python guilemod) #:use-module (ice-9 pretty-print) - #:use-module (logic guile-log persistance) + #:use-module (persist persistance) #:replace (equal?) #:export (set ref make-p <p> <py> <pf> <pyf> <property> call with copy fset fcall put put! py-get |