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/trunk/src/compiler/FLINT/flint/ppflint.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/flint/ppflint.sml

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

revision 183, Sun Nov 8 16:58:19 1998 UTC revision 184, Sun Nov 8 21:18:20 1998 UTC
# Line 32  Line 32 
32         in LT.ffw_var (ff, fn (b1,b2) => (h b1)^(h b2), fn _ => "f")         in LT.ffw_var (ff, fn (b1,b2) => (h b1)^(h b2), fn _ => "f")
33        end        end
34    
35      fun toStringFKind (F.FK_FUN {isrec=SOME _, fixed, ...} : F.fkind) =      fun toStringFKind ({isrec=SOME _, cconv=F.CC_FUN fixed, ...} : F.fkind) =
36            "REC " ^ (toStringFFlag fixed)            "REC " ^ (toStringFFlag fixed)
37        | toStringFKind (F.FK_FUN {fixed, ...}) =        | toStringFKind ({cconv=F.CC_FUN fixed, ...}) =
38            "FUN " ^ (toStringFFlag fixed)            "FUN " ^ (toStringFFlag fixed)
39        | toStringFKind (F.FK_FCT) = "FCT"        | toStringFKind ({cconv=F.CC_FCT, ...}) = "FCT"
40  (*  (*
41      fun toStringFKind F.FK_ESCAPE  = "FK_ESCAPE"      fun toStringFKind F.FK_ESCAPE  = "FK_ESCAPE"
42        | toStringFKind F.FK_KNOWN   = "FK_KNOWN"        | toStringFKind F.FK_KNOWN   = "FK_KNOWN"

Legend:
Removed from v.183  
changed lines
  Added in v.184

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