From 944fc50b8b36455b9749ad6b60f3020d466f901c Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Tue, 27 Mar 2018 16:19:00 +0200 Subject: large part of functools compiles --- modules/language/python/procedure.scm | 7 ------- 1 file changed, 7 deletions(-) (limited to 'modules/language/python/procedure.scm') 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))))) -- cgit v1.2.3