diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-10-17 00:59:20 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-10-17 00:59:20 +0200 |
| commit | b40e3b8b85eb3562cc49b2cbea041ee50949c46d (patch) | |
| tree | 6b5a1087b7db3f161e8869ad3982ce1b5ac1f4c9 /modules/language/python/compile.scm | |
| parent | a7346773d6b517fc09e5b776fb685daffc228528 (diff) | |
completer
Diffstat (limited to 'modules/language/python/compile.scm')
| -rw-r--r-- | modules/language/python/compile.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm index 50698c8..0126bbd 100644 --- a/modules/language/python/compile.scm +++ b/modules/language/python/compile.scm @@ -11,7 +11,7 @@ #:use-module (language python try) #:use-module (language python list) #:use-module (language python string) - #:use-module (language python str) + #:use-module (language python bytes) #:use-module (language python number) #:use-module (language python def) #:use-module (ice-9 pretty-print) @@ -28,7 +28,7 @@ (define-inlinable (L x) `(@@ (language python list) ,x)) (define-inlinable (A x) `(@@ (language python array) ,x)) (define-inlinable (S x) `(@@ (language python string) ,x)) -(define-inlinable (STR x) `(@@ (language python str) ,x)) +(define-inlinable (B x) `(@@ (language python bytes) ,x)) (define-inlinable (Se x) `(@@ (language python set) ,x)) (define-inlinable (D x) `(@@ (language python def) ,x)) (define-inlinable (Di x) `(@@ (language python dict) ,x)) @@ -618,7 +618,7 @@ (bytevector-u8-set! b i (car u)) (lp2 (cdr u) (+ i 1))) (lp (cdr l) i))))) - `(,(STR 'str) ,b)))) + `(,(B 'bytes) ,b)))) (#:+ |