summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-09-23 22:23:52 +0200
committerLudovic Courtès <ludo@gnu.org>2019-09-23 23:41:19 +0200
commit7b7e5b88fc341ddeada4a8df418767ce4dfca691 (patch)
tree6c1076e215bde3d431c6471c83d7ef4a55e8130c
parent24ab804ce11fe12ff49cd144a3d9c4bfcf55b41c (diff)
gexp: Remove unused procedure.
* guix/gexp.scm (syntax-location-string): Remove.
-rw-r--r--guix/gexp.scm13
1 files changed, 0 insertions, 13 deletions
diff --git a/guix/gexp.scm b/guix/gexp.scm
index 0d0b661c65..e788fc5981 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