Mercurial > urweb

diff src/source_print.sml @ 48:0a5c312de09a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Start of FFI
author Adam Chlipala <adamc@hcoop.net>
date Sun, 22 Jun 2008 09:27:29 -0400
parents a9f3ce2d1b9b
children fd8a81ecd598
line wrap: on
line diff
--- a/src/source_print.sml	Thu Jun 19 18:13:33 2008 -0400
+++ b/src/source_print.sml	Sun Jun 22 09:27:29 2008 -0400
@@ -335,6 +335,15 @@
                                         string "=",
                                         space,
                                         p_str str]
+      | DFfiStr (x, sgn) => box [string "extern",
+                                 space,
+                                 string "structure",
+                                 space,
+                                 string x,
+                                 space,
+                                 string ":",
+                                 space,
+                                 p_sgn sgn]
 
 and p_str (str, _) =
     case str of