bytevectors
[software/python-on-guile.git] / modules / language / python / compile.scm
index b7a52b27e6a014d43443b7eb671375772aa91e6a..ab9b8f6d2fb029ee16bc7e53806716b634fc5f28 100644 (file)
    '(values)))
  
  (#:string
-  ((#:string #f x)
-   x))
+  ((#:string p x)
+   (if (or (equal? p "r") (equal? p "R"))
+       `((@ (language python str) str) ,x)
+       x)))
 
  (#:+
   ((_ . l)