From 0a2045050517a2317083bd2ec17bae09e03c4a11 Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Mon, 14 May 2018 17:59:41 +0200 Subject: further improvements --- modules/language/python/bool.scm | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) (limited to 'modules/language/python/bool.scm') diff --git a/modules/language/python/bool.scm b/modules/language/python/bool.scm index 461dc26..d15c749 100644 --- a/modules/language/python/bool.scm +++ b/modules/language/python/bool.scm @@ -14,10 +14,22 @@ #f) (else x))) -(define-method (bool (x )) (not (= x 0))) +(define-method (bool (x )) (if (= x 0) #f x)) (define-method (bool (x

)) (aif it (ref x '__bool__) (it) (next-method))) - + +(define-method (+ (a ) b) + (+ (if a 1 0) b)) +(define-method (+ b (a )) + (+ (if a 1 0) b)) +(define-method (* (a ) b) + (* (if a 1 0) b)) +(define-method (* b (a )) + (* (if a 1 0) b)) +(define-method (- (a ) b) + (- (if a 1 0) b)) +(define-method (- b (a )) + (- b (if a 1 0))) -- cgit v1.2.3