compile: fast-ref: Simplify.
authorRicardo Wurmus <rekado@elephly.net>
Tue, 4 Jun 2019 09:37:37 +0000 (11:37 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Tue, 4 Jun 2019 09:37:37 +0000 (11:37 +0200)
* modules/language/python/compile.scm (fast-ref): Simplify.

modules/language/python/compile.scm

index 4c07076..efb98a2 100644 (file)
@@ -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