From a79c98f09886496cb5557c1a9c86ef9edb8fba84 Mon Sep 17 00:00:00 2001
From: Ben Elliston <bje@air.not.au>
Date: Mon, 26 Mar 2001 05:17:28 +0000
Subject: [PATCH] 2001-03-26  Ben Elliston  <bje@redhat.com>

	* gas-test.scm (<keyword>,test-data): Prefix keywords by their
	specified prefix and, if necessary, escape `$' in gas-build.sh to
	prevent unwanted shell variable expansion.
---
 ChangeLog    | 6 ++++++
 gas-test.scm | 9 +++++++--
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 89cfee4..9a12a5d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2001-03-26  Ben Elliston  <bje@redhat.com>
+
+	* gas-test.scm (<keyword>,test-data): Prefix keywords by their
+	specified prefix and, if necessary, escape `$' in gas-build.sh to
+	prevent unwanted shell variable expansion.
+
 2001-03-24  Ben Elliston  <bje@redhat.com>
 
 	* gas-test.scm (<hw-asm>,test-data): Choose pseudo-random data.
diff --git a/gas-test.scm b/gas-test.scm
index 0c0a347..e0bf62d 100644
--- a/gas-test.scm
+++ b/gas-test.scm
@@ -47,8 +47,13 @@
  <keyword> 'test-data
  (lambda (self n)
    (let* ((test-cases (elm-get self 'values))
-	  (selection (map (lambda (z) (random (length test-cases))) (iota n))))
-     (map (lambda (n) (car (list-ref test-cases n))) selection)))
+	  (selection (map (lambda (z) (random (length test-cases))) (iota n)))
+	  (prefix (elm-get self 'prefix)))
+     (map (lambda (n)
+	    (string-append 
+	     (if (eq? (string-ref prefix 0) #\$) "\\" "")
+	     (elm-get self 'prefix) (car (list-ref test-cases n))))
+	  selection)))
 )
 
 (method-make!
-- 
2.43.5