From c75be2215da7dcc993ca8450bafcbab609132871 Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Tue, 11 Sep 2018 20:49:02 +0200 Subject: final hhtp code --- modules/language/python/number.scm | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'modules/language/python/number.scm') 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 ) x) + (> (if o 1 0) x)) +(define-method (> x (o )) + (> x (if o 1 0))) +(define-method (>= (o ) x) + (>= (if o 1 0) x)) +(define-method (>= x (o )) + (>= x (if o 1 0))) +(define-method (< (o ) x) + (< (if o 1 0) x)) +(define-method (< x (o )) + (< x (if o 1 0))) +(define-method (<= (o ) x) + (<= (if o 1 0) x)) +(define-method (<= x (o )) + (<= 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) -- cgit v1.2.3