bugfix of string
authorStefan Israelsson Tampe <stefan.itampe@gmail.com>
Fri, 22 Sep 2017 20:20:43 +0000 (22:20 +0200)
committerStefan Israelsson Tampe <stefan.itampe@gmail.com>
Fri, 22 Sep 2017 20:20:43 +0000 (22:20 +0200)
modules/language/python/compile.scm
modules/language/python/string.scm

index f364e7aa3d188eb095dd0a4e76bc1314d46c82a6..34cc4df37901b013f0b9d8212f74de44f8d99af8 100644 (file)
    ((rsplit)     (S 'py-rsplit ))
    ((splitlines) (S 'py-splitlines))
    ((startswith) (S 'py-startswith))
-   ((swapcase)   (S 'py-swapcas))
-   ((translate)  (S  'py-translate))
+   ((swapcase)   (S 'py-swapcase))
+   ((translate)  (S 'py-translate))
    ((zfill)      (S 'py-zfill))))
    
 (define (fastfkn x) (hash-ref fasthash x))
index d15ca23c4cbb6a5d25b091b0ee3f01af43092ad3..15dbe43550ea8efffe4beb79ec743890df099ce2 100644 (file)
          (w (make-string n))
          (t (if (eq? table None) #f table))
          (d (match l (() #f) ((x) x))))
-    
     (define (tr ch)
+      (define (e)
+        (if t
+            (let ((i (char->integer ch)))
+              (if (< i (string-length t))
+                  (string-ref t i)
+                  ch))
+            ch))
+
       (if d
           (if (string-contains d (list->string (list ch)))
               #f
-              (if t
-                  (let ((i (char->integer ch)))
-                    (if (< i n)
-                        (string-ref t i)
-                        ch))
-                  ch))))
-                    
+              (e))
+          (e)))
+    
     (let lp ((i 0) (k 0))
       (if (< i n)
           (let ((ch (tr (string-ref s i))))