diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-09-21 20:22:56 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-09-21 20:22:56 +0200 |
| commit | a0edd0af042bd9ea95bae419c2cb54a6d16a6270 (patch) | |
| tree | bdef8da8f1abb1e5f28558bfed3d404b932d26cc /modules/language/python/compile.scm | |
| parent | 88c7715ee5041a3a1e16968c3b73d780e0e87c4f (diff) | |
in now a proper goops method
Diffstat (limited to 'modules/language/python/compile.scm')
| -rw-r--r-- | modules/language/python/compile.scm | 14 |
1 files changed, 7 insertions, 7 deletions
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) |