From 4a87b4b6d8f2ac76130b3cbfd9606be15c978a00 Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Mon, 17 Dec 2018 20:45:23 +0100 Subject: use guile-persist instead of guile-log --- README | 4 ++-- modules/language/python/module/copy.scm | 4 ++-- modules/language/python/module/pickle.scm | 8 ++++---- modules/language/python/persist.scm | 2 +- modules/oop/pf-objects.scm | 2 +- 5 files changed, 10 insertions(+), 10 deletions(-) diff --git a/README b/README index 1b1b765..9e9004d 100644 --- a/README +++ b/README @@ -8,8 +8,8 @@ With this you can compile a guile python file to any target from tree-il e.g. stis> ~/src/guile/meta/guild compile test.py --output=test.go --from=python -You also need guile-log and dependencies. -... +You also need guile-persist + https://gitlab.com/tampe/guile-persist To try it either put a python module file in language/python/module/. or try the interactive python shell via ,L python 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

call with copy fset fcall put put! py-get -- cgit v1.2.3