From 5545969f485ef2fb944db8e7b0237acbabeb8d4c Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Tue, 7 Sep 2010 08:28:07 -0400
Subject: Server-side 'onError'

---
 src/expl_print.sml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/expl_print.sml')

diff --git a/src/expl_print.sml b/src/expl_print.sml
index 5a914194..d89b0512 100644
--- a/src/expl_print.sml
+++ b/src/expl_print.sml
@@ -730,6 +730,7 @@ fun p_decl env (dAll as (d, _) : decl) =
       | DPolicy e1 => box [string "policy",
                            space,
                            p_exp env e1]
+      | DOnError _ => string "ONERROR"
 
 and p_str env (str, _) =
     case str of
-- 
cgit v1.2.3