diff options
| author | 宋文武 <iyzsong@gmail.com> | 2016-04-06 18:31:12 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@gmail.com> | 2016-04-13 09:17:01 +0800 |
| commit | f7df1e3efb4d4a67065b0eddc7eb02a8cb81fa21 (patch) | |
| tree | 3b543765e4809dd243d9799a8b16cca88725b911 | |
| parent | 50a3d59473acf9fb5e771b57528b09d3e66123c4 (diff) | |
| download | patches-f7df1e3efb4d4a67065b0eddc7eb02a8cb81fa21.tar patches-f7df1e3efb4d4a67065b0eddc7eb02a8cb81fa21.tar.gz | |
utils: Add 'location->source-properties'.
* guix/utils (location-source->properties): New procedure.
| -rw-r--r-- | guix/utils.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/guix/utils.scm b/guix/utils.scm index f566a994eb..a0e9439dd3 100644 --- a/guix/utils.scm +++ b/guix/utils.scm @@ -61,6 +61,7 @@ location-line location-column source-properties->location + location->source-properties nix-system->gnu-triplet gnu-triplet->nix-system @@ -895,3 +896,10 @@ etc." ;; In accordance with the GCS, start line and column numbers at 1. Note ;; that unlike LINE and `port-column', COL is actually 1-indexed here... (location file (and line (+ line 1)) col))) + +(define (location->source-properties loc) + "Return the source property association list based on the info in LOC, +a location object." + `((line . ,(and=> (location-line loc) 1-)) + (column . ,(location-column loc)) + (filename . ,(location-file loc)))) |