diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-02-23 13:12:17 +0100 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-02-23 13:12:17 +0100 |
commit | 408076be6aed70bc21dd01065dad9d99f05d3a27 (patch) | |
tree | 0d351f2905019f817b3c1c7ace168f0eb9f28734 /modules/language/python/string.scm | |
parent | ffaeb154569ad1e67856c65261a6b3563245eea9 (diff) |
operator.scm
Diffstat (limited to 'modules/language/python/string.scm')
-rw-r--r-- | modules/language/python/string.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/modules/language/python/string.scm b/modules/language/python/string.scm index 74eb0d7..d4cb74b 100644 --- a/modules/language/python/string.scm +++ b/modules/language/python/string.scm @@ -17,10 +17,13 @@ py-partition py-replace py-strip py-title py-rpartitio py-rindex py-split py-rsplit py-splitlines py-startswith py-swapcase py-translate py-zfill - pystring-listing <py-string> pystring)) + pystring-listing <py-string> pystring py-string?)) (define-syntax-rule (aif it p x y) (let ((it p)) (if it x y))) +(define (py-string? x) + (or (string? x) + (is-a? x <py-string>))) (define-class <py-string> () str) (name-object <py-string>) |