1999-11-10

  Feature: make `version' a list.

2 files changed, 5 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index e620b9a..0234175 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -644,4 +644,6 @@ Changes since rc-1.5b2
 
 1999-11-10
 
+  Feature: make `version' a list.
+
   Release: rc-1.6b1.
diff --git a/var.c b/var.c
index e5fdfcb..e7161de 100644
--- a/var.c
+++ b/var.c
@@ -57,7 +57,8 @@ extern bool varassign_string(char *extdef) {
    associated with $status)
 */
 
-static List id = { "$Release: @(#)" PACKAGE " " VERSION " " RELDATE " $", 0, 0 };
+static List id2 = { "$Release: @(#)" PACKAGE " " VERSION " " RELDATE " $", 0, 0 };
+static List id1 = { VERSION, 0, &id2 };
 
 extern List *varlookup(char *name) {
 	Variable *look;
@@ -68,7 +69,7 @@ extern List *varlookup(char *name) {
 	if (streq(name, "status"))
 		return sgetstatus();
 	if (streq(name, "version"))
-		return &id;
+		return &id1;
 	if (*name != '\0' && (sub = a2u(name)) != -1) { /* handle $1, $2, etc. */
 		for (l = varlookup("*"); l != NULL && sub != 0; --sub)
 			l = l->n;