Skip to content

Commit

Permalink
Added an OPTIMIZE comment for later reference.
Browse files Browse the repository at this point in the history
  • Loading branch information
Jack Pappas committed Jul 13, 2013
1 parent 0a78ed1 commit 37ccc4a
Showing 1 changed file with 8 additions and 1 deletion.
9 changes: 8 additions & 1 deletion NHol/lib.fs
Original file line number Diff line number Diff line change
Expand Up @@ -19,6 +19,8 @@ limitations under the License.
*)

#if INTERACTIVE
open FSharp.Compatibility.OCaml;;
open FSharp.Compatibility.OCaml.Num;;
#else
/// Various useful general library functions.
module NHol.lib
Expand All @@ -32,7 +34,10 @@ open FSharp.Compatibility.OCaml.Num
(* ------------------------------------------------------------------------- *)

// TODO : Move this into FSharp.Compatibility.OCaml
module Ratio =
module Ratio =
open FSharp.Compatibility.OCaml
open FSharp.Compatibility.OCaml.Num

// NOTE : not sure what kind of normalization should be done here
let normalize_ratio x = x
let numerator_ratio(r : Ratio.ratio) = r.Numerator
Expand All @@ -58,6 +63,8 @@ let fail () = failwith ""
(* Combinators. *)
(* ------------------------------------------------------------------------- *)

(* OPTIMIZE : The functions below should (probably) all be inlined; alternatively,
some can be replaced (used as aliases for) F# intrinsic functions. *)
let curry f x y = f(x, y)
let uncurry f (x, y) = f x y
let I x = x
Expand Down

0 comments on commit 37ccc4a

Please sign in to comment.