From 944fc50b8b36455b9749ad6b60f3020d466f901c Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Tue, 27 Mar 2018 16:19:00 +0200 Subject: large part of functools compiles --- modules/language/python/string.scm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'modules/language/python/string.scm') diff --git a/modules/language/python/string.scm b/modules/language/python/string.scm index 9563ad0..11a9737 100644 --- a/modules/language/python/string.scm +++ b/modules/language/python/string.scm @@ -7,6 +7,7 @@ #:use-module (language python list) #:use-module (language python exceptions) #:use-module (language python for) + #:use-module (language python bool) #:use-module (language python persist) #:export (py-format py-capitalize py-center py-endswith py-expandtabs py-find py-rfind @@ -55,6 +56,9 @@ (define-py0 (pylist-ref s i) (list->string (list (string-ref s i)))) +(define-py0 (bool s) + (not (= (len s) 0))) + (define-py (py-capitalize capitalize s) (let* ((n (len s)) (w (make-string n))) -- cgit v1.2.3