diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-11-06 10:43:48 -0500 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-11-06 10:43:48 -0500 |
commit | ea5a24773259c147e806960843d3305a3c72067b (patch) | |
tree | 2e714f5fc0b6c669bad6c201f3a4b11fec490513 /src/elab_print.sml | |
parent | 12bb99a0ba702af12e89bfe544f2a572e5d4818d (diff) |
Cookies through explify
Diffstat (limited to 'src/elab_print.sml')
-rw-r--r-- | src/elab_print.sml | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/src/elab_print.sml b/src/elab_print.sml index a686abe5..2afedef1 100644 --- a/src/elab_print.sml +++ b/src/elab_print.sml @@ -516,16 +516,6 @@ fun p_sgn_item env (sgi, _) = string "~", space, p_con env c2] - | SgiTable (_, x, n, c) => box [string "table", - space, - p_named x n, - space, - string ":", - space, - p_con env c] - | SgiSequence (_, x, n) => box [string "sequence", - space, - p_named x n] | SgiClassAbs (x, n) => box [string "class", space, p_named x n] @@ -536,13 +526,6 @@ fun p_sgn_item env (sgi, _) = string "=", space, p_con env c] - | SgiCookie (_, x, n, c) => box [string "cookie", - space, - p_named x n, - space, - string ":", - space, - p_con env c] and p_sgn env (sgn, _) = case sgn of |