From 62080c1a2c87e1d856c1a4611c874d1d6ee63a9a Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 14 Nov 2015 22:36:22 -0500
Subject: config: Add scope-datdir procedure.

* sly/config.scm.in (scope-datadir): New procedure.
---
 sly/config.scm.in | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/sly/config.scm.in b/sly/config.scm.in
index 433860d..c69a3cc 100644
--- a/sly/config.scm.in
+++ b/sly/config.scm.in
@@ -23,12 +23,17 @@
 
 (define-module (sly config)
   #:export (%datadir
+            scope-datadir
             %libfreeimage
             %libgslcblas))
 
 (define %datadir
   (or (getenv "SLY_DATADIR") "@sly_datadir@/sly"))
 
+(define (scope-datadir file)
+  "Append the Sly data directory to FILE."
+  (string-append %datadir file))
+
 (define %libfreeimage
   "@LIBFREEIMAGE@")
 
-- 
cgit v1.2.3