diff options
Diffstat (limited to 'modules/language/python/procedure.scm')
-rw-r--r-- | modules/language/python/procedure.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/modules/language/python/procedure.scm b/modules/language/python/procedure.scm index 55d0b24..51b21d4 100644 --- a/modules/language/python/procedure.scm +++ b/modules/language/python/procedure.scm @@ -123,3 +123,9 @@ (procedure-properties o)))))) (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))))) |