summaryrefslogtreecommitdiff
path: root/guix/utils.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-07-02 14:47:35 +0200
committerLudovic Courtès <ludo@gnu.org>2018-07-02 15:28:35 +0200
commit3059a35afe3f0ff2561870e0a0fb21e03fc3247a (patch)
treee6bf24344a3ae5b2c0f9a97afa1c7353033a3d04 /guix/utils.scm
parent96b2b0ddc962068489813b2fd84b3cb2815f6e3c (diff)
utils: Disable memoization for 'location'.
This was getting 25% hits, which did not quite justify the overhead. * guix/utils.scm (location): Remove 'mlambda'.
Diffstat (limited to 'guix/utils.scm')
-rw-r--r--guix/utils.scm9
1 files changed, 4 insertions, 5 deletions
diff --git a/guix/utils.scm b/guix/utils.scm
index a5de9605e7..9fbb95d31c 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