From d8eca15c63651e4c6014f4b91acd9589fb784cce Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Tue, 4 Jun 2019 11:37:37 +0200 Subject: compile: fast-ref: Simplify. * modules/language/python/compile.scm (fast-ref): Simplify. --- modules/language/python/compile.scm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm index 4c07076..efb98a2 100644 --- a/modules/language/python/compile.scm +++ b/modules/language/python/compile.scm @@ -548,9 +548,7 @@ empty list." h)) (define (fast-ref x) - (aif it (assoc x `((__class__ . ,(O 'py-class)))) - (cdr it) - #f)) + (and=> (assoc x `((__class__ . ,(O 'py-class)))) cdr)) (define fasthash (mkfast -- cgit v1.2.3