From 2307ccdcc5eb4ddfe719ddcbea999f7705ec79c3 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 30 Apr 2009 17:15:14 -0400
Subject: C FFI compiler options

---
 src/corify.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/corify.sml')

diff --git a/src/corify.sml b/src/corify.sml
index f1895e19..19568b8b 100644
--- a/src/corify.sml
+++ b/src/corify.sml
@@ -890,7 +890,7 @@ fun corifyDecl mods (all as (d, loc : EM.span), st) =
 
                  val st = St.bindStr st m n (St.ffi m cmap conmap)
              in
-                 (rev ds, St.basisIs (st, n))
+                 (rev ds, if m = "Basis" then St.basisIs (st, n) else st)
              end
            | _ => raise Fail "Non-const signature for FFI structure")
 
-- 
cgit v1.2.3