diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-11-06 12:08:41 -0500 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-11-06 12:08:41 -0500 |
commit | 9f6397d0f801f6e020aa6123f14ddc44e11deee7 (patch) | |
tree | ab9e9c68fbb15a38d5a42e489dbc1ecdfd886525 /src/prepare.sml | |
parent | bfad3d26b4471c93b92d41c894e25919fd7bf953 (diff) |
Reading cookies works
Diffstat (limited to 'src/prepare.sml')
-rw-r--r-- | src/prepare.sml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/prepare.sml b/src/prepare.sml index 166f658b..6d63ad7d 100644 --- a/src/prepare.sml +++ b/src/prepare.sml @@ -191,6 +191,13 @@ fun prepExp (e as (_, loc), sns) = ((String.concat (rev ss), n) :: #1 sns, #2 sns + 1)) end + | EUnurlify (e, t) => + let + val (e, sns) = prepExp (e, sns) + in + ((EUnurlify (e, t), loc), sns) + end + fun prepDecl (d as (_, loc), sns) = case #1 d of DStruct _ => (d, sns) |