diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2012-01-12 20:37:39 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2012-01-12 20:37:39 -0500 |
| commit | a3f5a3a95ee01e9d27933ca5c1c755ceb9dac1af (patch) | |
| tree | 4345b88e3ae93a675e27dffbe3a5b9a44499a74b /src/rpcify.sml | |
| parent | 7f9f5b2409507d7b84f15737be1f4ce185e4cda6 (diff) | |
-dumpSource flag; Especialize tweak: may specialize any argument sequence ending in a value of function-containing type
Diffstat (limited to 'src/rpcify.sml')
| -rw-r--r-- | src/rpcify.sml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/rpcify.sml b/src/rpcify.sml index 63330942..8d309a82 100644 --- a/src/rpcify.sml +++ b/src/rpcify.sml @@ -1,4 +1,4 @@ -(* Copyright (c) 2009, Adam Chlipala +(* Copyright (c) 2009, 2012, Adam Chlipala * All rights reserved. * * Redistribution and use in source and binary forms, with or without @@ -93,6 +93,8 @@ fun frob file = case getApp (#1 trans, []) of NONE => (ErrorMsg.errorAt (#2 trans) "RPC code doesn't use a named function or transaction"; + (*Print.preface ("Expression", + CorePrint.p_exp CoreEnv.empty trans);*) (#1 trans, st)) | SOME (n, args) => case IM.find (tfuncs, n) of |