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 /smlnj-lib/trunk/JSON/json-stream-printer.sml
ViewVC logotype

Diff of /smlnj-lib/trunk/JSON/json-stream-printer.sml

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

revision 2996, Fri Apr 18 16:26:23 2008 UTC revision 3030, Tue May 20 18:08:00 2008 UTC
# Line 114  Line 114 
114      fun endObject (p as P{ctx, ...}) = let      fun endObject (p as P{ctx, ...}) = let
115            fun prEnd ctx' = (            fun prEnd ctx' = (
116                  ctx := ctx';                  ctx := ctx';
117                  nl p; indent(p, ~1); pr(p, "}"); decIndent (p, 2))                  indent(p, ~1); pr(p, "}"); decIndent (p, 2))
118            in            in
119              case !ctx              case !ctx
120               of OBJECT ctx' => prEnd ctx'               of OBJECT ctx' => (nl p; prEnd ctx')
121                | FIRST(OBJECT ctx') => prEnd ctx'                | FIRST(OBJECT ctx') => prEnd ctx'
122                | _ => raise Fail "endObject not in object context"                | _ => raise Fail "endObject not in object context"
123              (* end case *)              (* end case *)

Legend:
Removed from v.2996  
changed lines
  Added in v.3030

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