Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /smlnj-lib/trunk/SExp/sexp.sml
ViewVC logotype

Diff of /smlnj-lib/trunk/SExp/sexp.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 4684, Mon Aug 20 16:17:29 2018 UTC revision 4685, Mon Aug 20 16:45:33 2018 UTC
# Line 21  Line 21 
21        | STRING of string        | STRING of string
22    
23      fun same (SYMBOL a, SYMBOL b) = Atom.same (a, b)      fun same (SYMBOL a, SYMBOL b) = Atom.same (a, b)
24        | same (LIST a, LIST b) = ListPair.all same (a, b)        | same (LIST a, LIST b) = ListPair.allEq same (a, b)
25        | same (BOOL a, BOOL b) = (a = b)        | same (BOOL a, BOOL b) = (a = b)
26        | same (INT a, INT b) = (a = b)        | same (INT a, INT b) = (a = b)
27        | same (FLOAT a, FLOAT b) = Real.==(a, b)        | same (FLOAT a, FLOAT b) = Real.==(a, b)

Legend:
Removed from v.4684  
changed lines
  Added in v.4685

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0