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-3/compiler/Elaborator/print/ppmod.sml
ViewVC logotype

Diff of /sml/branches/primop-branch-3/compiler/Elaborator/print/ppmod.sml

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

revision 2422, Wed Apr 18 16:35:19 2007 UTC revision 2423, Wed Apr 18 16:51:39 2007 UTC
# Line 392  Line 392 
392                      newline. We still use the unfiltered elements                      newline. We still use the unfiltered elements
393                      for determining whether the sig ... end should be                      for determining whether the sig ... end should be
394                      multiline even with just one datatype. *)                      multiline even with just one datatype. *)
395                  val elems' = List.filter                  val elems' =
396                                   (fn (_,M.CONspec{spec=dcon,...}) => false |                      List.filter
397                                       _ => true)                      (fn (_,M.CONspec{spec=T.DATACON{rep=A.EXN _,...},...})
398                                => true
399                          | (_,M.CONspec{spec=dcon,...}) => false
400                          | _ => true)
401                                   elements                                   elements
402               in               in
403               if !internals then               if !internals then

Legend:
Removed from v.2422  
changed lines
  Added in v.2423

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