Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/basis/basis-names.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/basis/basis-names.sml

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

revision 823, Thu Apr 14 14:28:33 2011 UTC revision 824, Thu Apr 14 15:54:24 2011 UTC
# Line 9  Line 9 
9  structure BasisNames =  structure BasisNames =
10    struct    struct
11    
12    (* binary operators *)    (* binary operators (in precedence order) *)
13      val op_at = Atom.atom "@"      val op_lt = Atom.atom "<"
14        val op_lte = Atom.atom "<="
15        val op_equ = Atom.atom "=="
16        val op_neq = Atom.atom "!="
17        val op_gte = Atom.atom ">="
18        val op_gt = Atom.atom ">"
19      val op_add = Atom.atom "+"      val op_add = Atom.atom "+"
20      val op_sub = Atom.atom "-"      val op_sub = Atom.atom "-"
21      val op_mul = Atom.atom "*"      val op_mul = Atom.atom "*"
# Line 19  Line 24 
24      val op_convolve = Atom.atom "⊛"           (* u229b *)      val op_convolve = Atom.atom "⊛"           (* u229b *)
25      val op_outer = Atom.atom "⊗"              (* u2297 *)      val op_outer = Atom.atom "⊗"              (* u2297 *)
26      val op_div = Atom.atom "/"      val op_div = Atom.atom "/"
27      val op_lt = Atom.atom "<"      val op_exp = Atom.atom "^"
28      val op_lte = Atom.atom "<="      val op_at = Atom.atom "@"
     val op_equ = Atom.atom "=="  
     val op_neq = Atom.atom "!="  
     val op_gte = Atom.atom ">="  
     val op_gt = Atom.atom ">"  
29    
30    (* unary operators *)    (* unary operators *)
31      val op_neg = Atom.atom "unary -"      val op_neg = Atom.atom "unary -"

Legend:
Removed from v.823  
changed lines
  Added in v.824

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