summaryrefslogtreecommitdiff
path: root/modules/language/python/spec.scm
diff options
context:
space:
mode:
Diffstat (limited to 'modules/language/python/spec.scm')
-rw-r--r--modules/language/python/spec.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/modules/language/python/spec.scm b/modules/language/python/spec.scm
index 7814d2c..ea545ac 100644
--- a/modules/language/python/spec.scm
+++ b/modules/language/python/spec.scm
@@ -31,7 +31,9 @@
(define (c int x) (pr (comp int (pr (p (pr x))))))
(define (cc int port x)
- (if (equal? x "") (read port) (c int x)))
+ (if (string-null? x)
+ (read port)
+ (c int x)))
(define (e x) (eval (c #t x) (current-module)))