diff options
| -rw-r--r-- | README | 4 | ||||
| -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 |
5 files changed, 10 insertions, 10 deletions
@@ -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 <p> <py> <pf> <pyf> <property> call with copy fset fcall put put! py-get |