doc-src/Codegen/Thy/examples/lookup.ML

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/doc-src/Codegen/Thy/examples/lookup.ML	Tue Mar 03 11:00:51 2009 +0100
@@ -0,0 +1,13 @@
+structure ROOT = 
+struct
+
+structure Codegen = 
+struct
+
+fun lookup ((k, v) :: xs) l =
+  (if ((k : string) = l) then SOME v else lookup xs l)
+  | lookup [] l = NONE;
+
+end; (*struct Codegen*)
+
+end; (*struct ROOT*)