diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-03-27 16:19:00 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-03-27 16:19:00 +0200 |
| commit | 944fc50b8b36455b9749ad6b60f3020d466f901c (patch) | |
| tree | abbbfdda0c84a10609a5ddda5d3940733db75f7e /modules/language/python/procedure.scm | |
| parent | 1c4e6def8285e0740461b732c78c74ed3345f524 (diff) | |
large part of functools compiles
Diffstat (limited to 'modules/language/python/procedure.scm')
| -rw-r--r-- | modules/language/python/procedure.scm | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/modules/language/python/procedure.scm b/modules/language/python/procedure.scm index 51b21d4..1289aae 100644 --- a/modules/language/python/procedure.scm +++ b/modules/language/python/procedure.scm @@ -107,8 +107,6 @@ (cons (cons k v) l) #:final (reverse l)))) - ((member tag fixed) - (raise KeyError (format #f "key ~a is unmutable" tag))) (else (set-procedure-property! f tag val)))) @@ -124,8 +122,3 @@ (pylist-sort! ret) ret)) -(define (mk-getter-object f) - (lambda (obj cls) - (if (eq? obj cls) - (lambda x (apply f x)) - (lambda x (apply f obj x))))) |