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 /sml/branches/primop-branch-2/src/compiler/Elaborator/modules/sigmatch.sml
ViewVC logotype

Diff of /sml/branches/primop-branch-2/src/compiler/Elaborator/modules/sigmatch.sml

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

revision 902, Wed Aug 15 21:17:05 2001 UTC revision 903, Mon Aug 20 19:34:06 2001 UTC
# Line 700  Line 700 
700                   case spec                   case spec
701                    of TYCspec _ => bindings                    of TYCspec _ => bindings
702                     | CONspec {slot=NONE, ...} => bindings                     | CONspec {slot=NONE, ...} => bindings
703                     | _ => (B.CONbind (VarCon.mkBogusEXN BasicTypes.exnTy))                     | _ => B.CONbind VarCon.bogusEXN :: bindings
                           ::bindings  
704    
705              in case kindOp              in case kindOp
706                   of SOME kind =>                   of SOME kind =>

Legend:
Removed from v.902  
changed lines
  Added in v.903

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