applicable structs used
[software/python-on-guile.git] / modules / language / python / spec.scm
index 0cfb83afe2b7adbc88d47825a97e2e4607ead823..155de877b0dea9274d95e45c8df76489c7ef4f8f 100644 (file)
@@ -29,7 +29,9 @@
 (define-language python
   #:title      "python"
   #:reader      (lambda (port env)
-                  (cc port (read-string port)))
+                  (if (not (fluid-ref (@@ (system base compile) %in-compile)))
+                      (cc port (read-line port))
+                      (cc port (read-string port))))
 
   #:compilers   `((tree-il . ,compile-tree-il))
   #:decompilers `((tree-il . ,decompile-tree-il))