diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-09-11 20:49:02 +0200 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-09-11 20:49:02 +0200 |
commit | c75be2215da7dcc993ca8450bafcbab609132871 (patch) | |
tree | 02dd34ba28787b8d98ad50433c41339639d60cfc /modules/language/python/number.scm | |
parent | f75533465dbe70b153c75c85297422964b1a598d (diff) |
final hhtp code
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) |