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

SCM Repository

[diderot] Diff of /trunk/src/basis/basis.sml
ViewVC logotype

Diff of /trunk/src/basis/basis.sml

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

revision 79, Tue May 25 01:55:48 2010 UTC revision 91, Thu May 27 15:16:36 2010 UTC
# Line 28  Line 28 
28            BV.op_D,            BV.op_D,
29            BV.op_norm,            BV.op_norm,
30            BV.op_not,            BV.op_not,
31              BV.op_subscript,
32          (* functions *)          (* functions *)
33            BV.fn_CL,            BV.fn_CL,
34            BV.fn_convolve,            BV.fn_convolve,
# Line 35  Line 36 
36            BV.fn_dot,            BV.fn_dot,
37            BV.fn_inside,            BV.fn_inside,
38            BV.fn_load,            BV.fn_load,
39              BV.fn_modulate,
40            BV.fn_pow,            BV.fn_pow,
41  (*            BV.fn_principleEvec,
     val fn_principleEvec = Atom.atom "principleEvec"  
 *)  
42            BV.fn_sin,            BV.fn_sin,
43          (* kernels *)          (* kernels *)
44            BV.kn_bspln3,            BV.kn_bspln3,
# Line 68  Line 68 
68          ]          ]
69    
70      local      local
71        val lookup = let        val find = let
72              val tbl = ATbl.mkTable(64, Fail "op table")              val tbl = ATbl.mkTable(64, Fail "op table")
73              in              in
74                List.app (ATbl.insert tbl) overloads;                List.app (ATbl.insert tbl) overloads;
75                ATbl.lookup tbl                ATbl.find tbl
76              end              end
77      in      in
78      fun findOp name = (case Env.findVar(env, name)      fun findOp name = (case Env.findVar(env, name)
79             of SOME x => [x]             of SOME x => [x]
80              | NONE => lookup name              | NONE => (case find name
81                     of SOME xs => xs
82                      | NONE => raise Fail("unknown operator "^Atom.toString name)
83                    (* end case *))
84            (* end case *))            (* end case *))
85      end (* local *)      end (* local *)
86    

Legend:
Removed from v.79  
changed lines
  Added in v.91

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