lib/linguist/heuristics.rb in github-linguist-4.5.1 vs lib/linguist/heuristics.rb in github-linguist-4.5.2

@@ -162,11 +162,11 @@
       elsif /^-----BEGIN/.match(data)
         Language["Public Key"]
       end
     end
 
-    disambiguate "FORTRAN", "Forth" do |data|
+    disambiguate "FORTRAN", "Forth", "Formatted" do |data|
       if /^: /.match(data)
         Language["Forth"]
       elsif /^([c*][^a-z]|      (subroutine|program)\s|\s*!)/i.match(data)
         Language["FORTRAN"]
       end
@@ -259,7 +259,16 @@
         Language["DTrace"]
       elsif /(\/.*:( .* \\)$| : \\$|^ : |: \\$)/.match(data)
         Language["Makefile"]
       end
     end
+
+    disambiguate "OCaml", "Standard ML" do |data|
+      if /module|let rec |match\s+(\S+\s)+with/.match(data)
+        Language["OCaml"]
+      elsif /=> |case\s+(\S+\s)+of/.match(data)
+        Language["Standard ML"]
+      end
+    end
+
   end
 end