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 | bffeb0e5a10ae58b8f7c3f5249b3665373236e21 (patch) | |
| tree | ab9e9c68fbb15a38d5a42e489dbc1ecdfd886525 /src/prepare.sml | |
| parent | 09d844ebdc60010b6b19d1833c213bcbba035515 (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) |