summaryrefslogtreecommitdiff
path: root/modules/language/python/string.scm
diff options
context:
space:
mode:
Diffstat (limited to 'modules/language/python/string.scm')
-rw-r--r--modules/language/python/string.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/modules/language/python/string.scm b/modules/language/python/string.scm
index 81b5a06..6c31f1e 100644
--- a/modules/language/python/string.scm
+++ b/modules/language/python/string.scm
@@ -24,7 +24,9 @@
(define-syntax-rule (aif it p x y) (let ((it p)) (if it x y)))
(define (scm-str x)
- (slot-ref (pystring x) 'str))
+ (if (string? x)
+ x
+ (slot-ref (pystring x) 'str)))
(define (scm-sym x)
(if (symbol? x)