diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-10-02 23:20:56 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-10-02 23:20:56 +0200 |
| commit | 3533d6037dd7d83a1f9ee250138d0ebf1bccc062 (patch) | |
| tree | 29cd01ca96012b652b23916bf6321ee4e24bc454 /modules/language/python/compile.scm | |
| parent | ac7d9a507124df0e67b7d234d4e3ee519f968947 (diff) | |
complex numbers
Diffstat (limited to 'modules/language/python/compile.scm')
| -rw-r--r-- | modules/language/python/compile.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm index a8fdeac..5d9828b 100644 --- a/modules/language/python/compile.scm +++ b/modules/language/python/compile.scm @@ -272,6 +272,8 @@ ((__rrshift__) (N 'py-rrshift)) ((as_integer_ratio) (N 'py-as-integer-ratio)) ((conjugate) (N 'py-conjugate)) + ((denominator) (N 'py-denominator)) + ((numerator) (N 'py-numerator)) ((fromhex) (N 'py-fromhex)) ((hex) (N 'py-hex)) ((imag) (N 'py-imag)) @@ -402,8 +404,8 @@ (fast (fastfkn tag)) (is-fkn? (aif it (and is-fkn? fast) `(#:call-obj (lambda (e) - `(lambda ,xs - (apply ,it ,e ,xs)))) + (lambda ,xs + (apply ,it e ,xs)))) #f))) (if is-fkn? is-fkn? |