diff options
Diffstat (limited to 'src/interp/i-map.boot')
| -rw-r--r-- | src/interp/i-map.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot index 127e5d7c..9ef6a509 100644 --- a/src/interp/i-map.boot +++ b/src/interp/i-map.boot @@ -385,8 +385,8 @@ clearDep1(x,toDoList,doneList,depList) == until null a repeat a:= ASSQ(x,depList) a => - depList:= delete(a,depList) - toDoList:= union(toDoList, + depList := remove(depList,a) + toDoList := union(toDoList, setDifference(rest a,doneList)) toDoList is [a,:res] => clearDep1(a,res,newDone,depList) 'done |