[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/05: utils: Disable memoization for 'location'.
From: |
Ludovic Courtès |
Subject: |
02/05: utils: Disable memoization for 'location'. |
Date: |
Mon, 2 Jul 2018 09:28:42 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit 3059a35afe3f0ff2561870e0a0fb21e03fc3247a
Author: Ludovic Courtès <address@hidden>
Date: Mon Jul 2 14:47:35 2018 +0200
utils: Disable memoization for 'location'.
This was getting 25% hits, which did not quite justify the overhead.
* guix/utils.scm (location): Remove 'mlambda'.
---
guix/utils.scm | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/guix/utils.scm b/guix/utils.scm
index a5de960..9fbb95d 100644
--- a/guix/utils.scm
+++ b/guix/utils.scm
@@ -773,11 +773,10 @@ be determined."
(line location-line) ; 1-indexed line
(column location-column)) ; 0-indexed column
-(define location
- (mlambda (file line column)
- "Return the <location> object for the given FILE, LINE, and COLUMN."
- (and line column file
- (make-location file line column))))
+(define (location file line column)
+ "Return the <location> object for the given FILE, LINE, and COLUMN."
+ (and line column file
+ (make-location file line column)))
(define (source-properties->location loc)
"Return a location object based on the info in LOC, an alist as returned