From a8a87ab9088d81b548282927c26deebd8a210284 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Tue, 24 Feb 2009 21:07:05 -0400
Subject: [PATCH] Added "date" valexpr to session, for bal -V

---
 src/session.cc | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/session.cc b/src/session.cc
index 6fa07664..9d1a23f4 100644
--- a/src/session.cc
+++ b/src/session.cc
@@ -235,6 +235,11 @@ expr_t::ptr_op_t session_t::lookup(const string& name)
 {
   const char * p = name.c_str();
   switch (*p) {
+  case 'd':
+    if (is_eq(p, "date"))
+      return MAKE_FUNCTOR(session_t::fn_today);
+    break;
+
   case 'n':
     if (is_eq(p, "now"))
       return MAKE_FUNCTOR(session_t::fn_now);