From a0edd0af042bd9ea95bae419c2cb54a6d16a6270 Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Thu, 21 Sep 2017 20:22:56 +0200 Subject: in now a proper goops method --- modules/language/python/compile.scm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'modules/language/python/compile.scm') diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm index eace6ec..2edba8a 100644 --- a/modules/language/python/compile.scm +++ b/modules/language/python/compile.scm @@ -892,13 +892,13 @@ (match op ((or "<" ">" "<=" ">=") (list (G (string->symbol op)) x y)) - ("!=" (list 'not (list 'equal? x y))) - ("==" (list 'equal? x y)) - ("is" (list 'eq? x y)) - ("isnot" (list 'not (list 'eq? x y))) - ("in" (list 'member x y)) - ("notin" (list 'not (list 'member x y))) - ("<>" (list 'not (list 'equal? x y))))) + ("!=" (list (G 'not) (list (G 'equal?) x y))) + ("==" (list (G 'equal?) x y)) + ("is" (list (G 'eq?) x y)) + ("isnot" (list (G 'not) (list (G 'eq?) x y))) + ("in" (list (L 'in) x y)) + ("notin" (list (G 'not) (list (L 'in) x y))) + ("<>" (list (G 'not) (list (G 'equal?) x y))))) (tr op (exp vs x) (exp vs y))))) (define (exp vs x) -- cgit v1.2.3