04/07: gexp: Remove unused procedure.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 7b7e5b88fc341ddeada4a8df418767ce4dfca691
Author: Ludovic Courtès <address@hidden>
Date:   Mon Sep 23 22:23:52 2019 +0200

    gexp: Remove unused procedure.
    
    * guix/gexp.scm (syntax-location-string): Remove.
---
 guix/gexp.scm | 13 -------------
 1 file changed, 13 deletions(-)

diff --git a/guix/gexp.scm b/guix/gexp.scm
index 0d0b661..e788fc5 100644
--- a/guix/gexp.scm
+++ b/guix/gexp.scm
@@ -1055,19 +1055,6 @@ and in the current monad setting (system type, etc.)"
                    reference->sexp (gexp-references exp))))
     (return (apply (gexp-proc exp) args))))
 
-(define (syntax-location-string s)
-  "Return a string representing the source code location of S."
-  (let ((props (syntax-source s)))
-    (if props
-        (let ((file   (assoc-ref props 'filename))
-              (line   (and=> (assoc-ref props 'line) 1+))
-              (column (assoc-ref props 'column)))
-          (if file
-              (simple-format #f "~a:~a:~a"
-                             file line column)
-              (simple-format #f "~a:~a" line column)))
-        "<unknown location>")))
-
 (define-syntax-rule (define-syntax-parameter-once name proc)
   ;; Like 'define-syntax-parameter' but ensure the top-level binding for NAME
   ;; does not get redefined.  This works around a race condition in a