Home My Page Projects Code Snippets Project Openings 3D graphics for Standard ML
Summary Activity SCM

SCM Repository

[sml3d] Diff of /trunk/sml3d/gen/gen-from-xml/gldb/db.sml
ViewVC logotype

Diff of /trunk/sml3d/gen/gen-from-xml/gldb/db.sml

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

revision 1412, Mon Apr 14 21:01:06 2014 UTC revision 1413, Mon Apr 14 22:48:52 2014 UTC
# Line 185  Line 185 
185                    | SOME{ty=ty', value=value', ...} => let                    | SOME{ty=ty', value=value', ...} => let
186                        val tyConflict = (case (ty, ty')                        val tyConflict = (case (ty, ty')
187                               of (SOME ty, SOME ty') => not(CType.same(ty, ty'))                               of (SOME ty, SOME ty') => not(CType.same(ty, ty'))
188                                  | (SOME ty, NONE) => ((* update type info *)
189                                      insertInBase(name, {name=name, ty=SOME ty, value=value});
190                                      false)
191                                | (NONE, NONE) => false                                | (NONE, NONE) => false
192                                | _ => true                                | _ => true
193                              (* end case *))                              (* end case *))

Legend:
Removed from v.1412  
changed lines
  Added in v.1413

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