futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gexp: Remove unused procedure.

Browse Source 
* guix/gexp.scm (syntax-location-string): Remove.
This commit is contained in:
Ludovic Courtès 2019-09-23 22:23:52 +02:00
parent 24ab804ce1
commit 7b7e5b88fc
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
guix/gexp.scm
View File

@ -1055,19 +1055,6 @@ and in the current monad setting (system type, etc.)"
reference->sexp (gexp-references exp)))) reference->sexp (gexp-references exp))))
(return (apply (gexp-proc exp) args)))) (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) (define-syntax-rule (define-syntax-parameter-once name proc)
;; Like 'define-syntax-parameter' but ensure the top-level binding for NAME ;; Like 'define-syntax-parameter' but ensure the top-level binding for NAME
;; does not get redefined. This works around a race condition in a ;; does not get redefined. This works around a race condition in a