diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-08-25 20:42:16 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-08-25 20:42:16 +0200 |
| commit | 476007acf39bbf6e2e4a1239ebb8835195895156 (patch) | |
| tree | ee08fd893116d61ce1956ccc8700f145e02e2c3f /modules/language/python/string.scm | |
| parent | 582d1c6f0be332ad4cb9f421bea5c2be56a12408 (diff) | |
socket compiles
Diffstat (limited to 'modules/language/python/string.scm')
| -rw-r--r-- | modules/language/python/string.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/modules/language/python/string.scm b/modules/language/python/string.scm index 3069527..a189d84 100644 --- a/modules/language/python/string.scm +++ b/modules/language/python/string.scm @@ -191,9 +191,9 @@ (mk-is py-isalnum isalnum char-alphabetic? char-numeric?) (mk-is py-isalpha isalpha char-alphabetic?) (mk-is py-isdigit isdigit char-numeric?) -(mk-is py-islower islower char-lower-case?) +(mk-is py-islower islower (lambda (ch) (or (eq? ch #\_) (char-lower-case? ch)))) (mk-is py-isspace isspace char-whitespace?) -(mk-is py-isupper isupper char-upper-case?) +(mk-is py-isupper isupper (lambda (ch) (or (eq? ch #\_) (char-upper-case? ch)))) (define-py (py-identifier? isidentifier s) (let lp ((l (string->list s)) (first? #t)) |