diff options
Diffstat (limited to 'modules/language/python/number.scm')
| -rw-r--r-- | modules/language/python/number.scm | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/modules/language/python/number.scm b/modules/language/python/number.scm index 089095d..3744fec 100644 --- a/modules/language/python/number.scm +++ b/modules/language/python/number.scm @@ -23,6 +23,23 @@ py-ilogior py-ilogand py-ipow py-isub py-i/ py-irshift py-ilogxor)) +(define-method (> (o <boolean>) x) + (> (if o 1 0) x)) +(define-method (> x (o <boolean>)) + (> x (if o 1 0))) +(define-method (>= (o <boolean>) x) + (>= (if o 1 0) x)) +(define-method (>= x (o <boolean>)) + (>= x (if o 1 0))) +(define-method (< (o <boolean>) x) + (< (if o 1 0) x)) +(define-method (< x (o <boolean>)) + (< x (if o 1 0))) +(define-method (<= (o <boolean>) x) + (<= (if o 1 0) x)) +(define-method (<= x (o <boolean>)) + (<= x (if o 1 0))) + (define-syntax-rule (aif it p x y) (let ((it p)) (if it x y))) (define-syntax-rule (mki py-iadd __iadd__) @@ -617,3 +634,4 @@ (+ "0b" (number->string (py-index o) 2))) +(set! (@@ (language python list) int) int) |