utils: Disable memoization for 'location'.

This was getting 25% hits, which did not quite justify the overhead.

* guix/utils.scm (location): Remove 'mlambda'.
This commit is contained in:
Ludovic Courtès 2018-07-02 14:47:35 +02:00
parent 96b2b0ddc9
commit 3059a35afe
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 5 deletions

View File

@ -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