diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-07-02 14:47:35 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-07-02 15:28:35 +0200 |
| commit | 3059a35afe3f0ff2561870e0a0fb21e03fc3247a (patch) | |
| tree | e6bf24344a3ae5b2c0f9a97afa1c7353033a3d04 | |
| parent | 96b2b0ddc962068489813b2fd84b3cb2815f6e3c (diff) | |
| download | guix-3059a35afe3f0ff2561870e0a0fb21e03fc3247a.tar guix-3059a35afe3f0ff2561870e0a0fb21e03fc3247a.tar.gz | |
utils: Disable memoization for 'location'.
This was getting 25% hits, which did not quite justify the overhead.
* guix/utils.scm (location): Remove 'mlambda'.
| -rw-r--r-- | guix/utils.scm | 9 |
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 |