From 7b7e5b88fc341ddeada4a8df418767ce4dfca691 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 23 Sep 2019 22:23:52 +0200 Subject: 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 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))) - ""))) - (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 -- cgit 1.4.1