michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(kernel/context): make context remove more robust

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2013-12-11 19:51:57 -08:00
parent f728f80960
commit 3e77dd0c42
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/kernel/context.cpp
View file

@ -43,14 +43,18 @@ optional<context_entry> context::find(unsigned i) const {
}
static list<context_entry> remove_core(list<context_entry> const & l, unsigned s, unsigned n) {
if (s == 0) {
if (n > 0) {
return remove_core(tail(l), 0, n-1);
if (l) {
if (s == 0) {
if (n > 0) {
return remove_core(tail(l), 0, n-1);
} else {
return l;
}
} else {
return l;
return cons(head(l), remove_core(tail(l), s-1, n));
}
} else {
return cons(head(l), remove_core(tail(l), s-1, n));
return l;
}
}