Fix external declaration

andrenth · Jul 18, 2012 · c195fc1 · c195fc1
1 parent 419af1e
commit c195fc1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/SRS.ml b/lib/SRS.ml
@@ -12,7 +12,7 @@ let _ = Callback.register_exception "SRS.SRS_error" (SRS_error "")
 external create : unit -> t = "caml_srs_new"
 external add_secret : t -> string -> unit = "caml_srs_add_secret"
 external forward : t -> string -> string -> string = "caml_srs_forward"
-external reverse : t -> string -> string = "caml_srs_forward"
+external reverse : t -> string -> string = "caml_srs_reverse"
 external set_separator : t -> separator -> unit = "caml_srs_set_separator"
 external get_separator : t -> separator = "caml_srs_get_separator"
 external set_max_age : t -> int -> unit = "caml_srs_set_maxage"