From 4ba6e6a0c5328e55522cde307aaf4c7e30230b55 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Sat, 10 Sep 2011 15:21:49 -0400
Subject: [PATCH] fixing the documentation

---
 examples/fact.rkt        | 8 ++++++++
 scribblings/manual.scrbl | 9 +++++----
 2 files changed, 13 insertions(+), 4 deletions(-)
 create mode 100644 examples/fact.rkt

diff --git a/examples/fact.rkt b/examples/fact.rkt
new file mode 100644
index 0000000..fe8ef50
--- /dev/null
+++ b/examples/fact.rkt
@@ -0,0 +1,8 @@
+#lang planet dyoo/whalesong
+(provide fact)
+(define (fact x)
+  (cond
+   [(= x 0)
+    1]
+   [else
+    (* x (fact (sub1 x)))]))
diff --git a/scribblings/manual.scrbl b/scribblings/manual.scrbl
index a0ee4f3..f90ba9f 100644
--- a/scribblings/manual.scrbl
+++ b/scribblings/manual.scrbl
@@ -297,12 +297,12 @@ function and define it in a module called @filepath{fact.rkt}:
 
 @margin-note{
 The files can also be downloaded here: 
-@itemlist[@item{@link["http://hashcollision.org/whalesong/fact-example/fact.rkt"]{fact.rkt}} 
-@item{@link["http://hashcollision.org/whalesong/fact-example/index.html"]{index.html}}]
+@itemlist[@item{@link["http://hashcollision.org/whalesong/examples/fact/fact.rkt"]{fact.rkt}} 
+@item{@link["http://hashcollision.org/whalesong/examples/fact/index.html"]{index.html}}]
 with generated JavaScript binaries here:
 @itemlist[
-@item{@link["http://hashcollision.org/whalesong/fact-example/fact.js"]{fact.js}}
-@item{@link["http://hashcollision.org/whalesong/fact-example/runtime.js"]{runtime.js}}
+@item{@link["http://hashcollision.org/whalesong/examples/fact/fact.js"]{fact.js}}
+@item{@link["http://hashcollision.org/whalesong/examples/fact/runtime.js"]{runtime.js}}
 ]
 }
 
@@ -381,6 +381,7 @@ The factorial of 10000 is <span id="answer">being computed</span>.
 }|
 }
 
+@margin-note{See: @link["http://hashcollision.org/whalesong/examples/fact/bad-index.html"]{bad-index.html}.}
 Replacing the @racket[10000] with @racket["one-billion-dollars"] should
 reliably produce a proper error message.