From 5058a94ee717d96285da20423324af3478df175d Mon Sep 17 00:00:00 2001
From: Paul Smith <psmith@gnu.org>
Date: Mon, 25 Feb 2013 01:38:36 -0500
Subject: Expand the loadable object support.

Provide a simple API for loaded objects to interact with GNU make.  I still
won't guarantee that this API won't change but it's much closer to something
that's supported and provides easy-to-use interfaces with a public header
file.
---
 tests/scripts/functions/guile | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'tests/scripts/functions')

diff --git a/tests/scripts/functions/guile b/tests/scripts/functions/guile
index 93a18ab..c63bec9 100644
--- a/tests/scripts/functions/guile
+++ b/tests/scripts/functions/guile
@@ -44,8 +44,12 @@ x:;@echo '$(VAR)'
               '', "hi");
 
 # Verify the gmk-eval function
+# Prove that the string is expanded only once (by eval)
 run_make_test(q!
-$(guile (gmk-eval "VAR = hi $(shell echo there)"))
+TEST = bye
+EVAL = VAR = $(TEST) $(shell echo there)
+$(guile (gmk-eval "$(value EVAL)"))
+TEST = hi
 x:;@echo '$(VAR)'
 !,
               '', "hi there");
@@ -80,7 +84,7 @@ define fib
 ;; A procedure for counting the n:th Fibonacci number
 ;; See SICP, p. 37
 (define (fib n)
-  (cond ((= n 0) 0)  
+  (cond ((= n 0) 0)
         ((= n 1) 1)
         (else (+ (fib (- n 1))
                  (fib (- n 2))))))
-- 
cgit v1.2.3