From 528af327cc26a6b76802ce857a7466b1f7ce3ce9 Mon Sep 17 00:00:00 2001
From: raoul <raoul@ccczh.ch>
Date: Sun, 29 Sep 2013 23:53:43 +0200
Subject: [PATCH] Evaluate the lambertW function for the special value -1/e

---
 src/algebra/combfunc.spad.pamphlet | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/algebra/combfunc.spad.pamphlet b/src/algebra/combfunc.spad.pamphlet
index fc0a2aa1..44aa126d 100644
--- a/src/algebra/combfunc.spad.pamphlet
+++ b/src/algebra/combfunc.spad.pamphlet
@@ -1683,6 +1683,7 @@ FunctionalSpecialFunction(R, F) : Exports == Implementation where
         iLambertW(x) ==
             zero?(x) => 0
             x = exp(1$F) => 1$F
+            x = -exp(-1$F) => -1$F
             kernel(opLambertW, x)
     else
         iLambertW(x) ==