X-Git-Url: https://git.elephly.net/?p=software%2Fpython-on-guile.git;a=blobdiff_plain;f=modules%2Flanguage%2Fpython%2Fspec.scm;h=155de877b0dea9274d95e45c8df76489c7ef4f8f;hp=0cfb83afe2b7adbc88d47825a97e2e4607ead823;hb=a0bd0fb9c3165f12635587a0bdacb450c660ae17;hpb=3d8e9a93996ea408a8a57a6074d82f6bc90b4cb1

diff --git a/modules/language/python/spec.scm b/modules/language/python/spec.scm
index 0cfb83a..155de87 100644
--- a/modules/language/python/spec.scm
+++ b/modules/language/python/spec.scm
@@ -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))