projects
/
software
/
python-on-guile.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5dea867
)
compile: fast-ref: Simplify.
author
Ricardo Wurmus
<rekado@elephly.net>
Tue, 4 Jun 2019 09:37:37 +0000
(11:37 +0200)
committer
Ricardo 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
patch
|
blob
|
history
diff --git
a/modules/language/python/compile.scm
b/modules/language/python/compile.scm
index
4c07076
..
efb98a2
100644
(file)
--- 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