diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-04-11 22:02:17 +0200 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-04-11 22:02:17 +0200 |
commit | c653e3aca875247001fc49ac3c7b51f3b4771698 (patch) | |
tree | b25049ca0e4e1d160838840095fe484299f34946 /modules/language/python/string.scm | |
parent | 6ab1402a897e23bd32ab97ad841a8d2615ff78e1 (diff) |
io compiles
Diffstat (limited to 'modules/language/python/string.scm')
-rw-r--r-- | modules/language/python/string.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/modules/language/python/string.scm b/modules/language/python/string.scm index 11a9737..084d933 100644 --- a/modules/language/python/string.scm +++ b/modules/language/python/string.scm @@ -23,7 +23,15 @@ (define-syntax-rule (aif it p x y) (let ((it p)) (if it x y))) -(define (scm-str x) (slot-ref (pystring x) 'str)) +(define (scm-str x) + (cond + ((string? x) + x) + ((is-a? x <py-string>) + (slot-ref (pystring x) 'str)) + (else + #f))) + (define (scm-sym x) (if (symbol? x) x |