diff options
| -rw-r--r-- | demo/listEdit.ur | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/demo/listEdit.ur b/demo/listEdit.ur index 5b45d9a2..e75f2d04 100644 --- a/demo/listEdit.ur +++ b/demo/listEdit.ur @@ -37,12 +37,7 @@ fun main () = val cons = Cons {Data = data, NewData = ndata, Tail = tail'} in set tail cons; - set tailP tail'; - - head' <- get head; - case head' of - Nil => set head cons - | _ => return () + set tailP tail' end in return <xml><body> |