utils: Disable memoization for 'location'.

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

* guix/utils.scm (location): Remove 'mlambda'.

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