[cl-unification-cvs] CVS update: cl-unification/docs/html/control-flow.html

[Marco Antoniotti]

Update of /project/cl-unification/cvsroot/cl-unification/docs/html
In directory common-lisp.net:/tmp/cvs-serv26398

Modified Files:
	control-flow.html 
Log Message:
Fixed factorial example.

Date: Wed Apr 27 23:04:59 2005
Author: mantoniotti

Index: cl-unification/docs/html/control-flow.html
diff -u cl-unification/docs/html/control-flow.html:1.1.1.1 cl-unification/docs/html/control-flow.html:1.2
--- cl-unification/docs/html/control-flow.html:1.1.1.1	Wed Nov 17 23:19:55 2004
+++ cl-unification/docs/html/control-flow.html	Wed Apr 27 23:04:59 2005
@@ -68,7 +68,7 @@
   (defun factorial (x)
     (<b>match-case</b> (x)
       (0 1)
-      (#T(number ?n) (factorial (1- ?n)))
+      (#T(number ?n) (* ?n (factorial (1- ?n))))
       (otherwise (error "Incorrect match for ~S." x))))
   </pre>
   </p>