diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2000-04-03 01:57:52 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2000-04-03 01:57:52 +0000 |
| commit | 19fede7478c59780e990b196333bd4d33ce44ace (patch) | |
| tree | d5d98bbbad6d9451404688bbe06e365c517a7428 /otherlibs/labltk/browser/jg_memo.ml | |
| parent | f5887684a7354795875dc9bf6a8fdaddea0c90c5 (diff) | |
passage aux labels legers
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3024 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/browser/jg_memo.ml')
| -rw-r--r-- | otherlibs/labltk/browser/jg_memo.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/otherlibs/labltk/browser/jg_memo.ml b/otherlibs/labltk/browser/jg_memo.ml index 89940d2f1..f6f6e773b 100644 --- a/otherlibs/labltk/browser/jg_memo.ml +++ b/otherlibs/labltk/browser/jg_memo.ml @@ -17,15 +17,15 @@ type ('a, 'b) assoc_list = Nil | Cons of 'a * 'b * ('a, 'b) assoc_list -let rec assq :key = function +let rec assq key = function Nil -> raise Not_found | Cons (a, b, l) -> - if key == a then b else assq :key l + if key == a then b else assq key l -let fast fun:f = +let fast :f = let memo = ref Nil in fun key -> - try assq :key !memo + try assq key !memo with Not_found -> let data = f key in memo := Cons(key, data, !memo); |