From 1fe962f1c47ae9de46298a7420b10ec271b2b9b7 Mon Sep 17 00:00:00 2001
From: Stefan Israelsson Tampe <stefan.itampe@gmail.com>
Date: Thu, 12 Apr 2018 21:33:56 +0200
Subject: io module tested and debugged

---
 modules/language/python/bool.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'modules/language/python/bool.scm')

diff --git a/modules/language/python/bool.scm b/modules/language/python/bool.scm
index 3eb6bc8..461dc26 100644
--- a/modules/language/python/bool.scm
+++ b/modules/language/python/bool.scm
@@ -1,5 +1,6 @@
 (define-module (language python bool)
   #:use-module (oop goops)
+  #:use-module (language python exceptions)
   #:use-module (oop pf-objects)
   #:export (bool))
 
@@ -9,6 +10,8 @@
   (cond
    ((null? x)
     #f)
+   ((eq? x None)
+    #f)
    (else x)))
 
 (define-method (bool (x <integer>)) (not (= x 0)))
-- 
cgit v1.2.3