git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8431 8c9fc860-2736-0410-a75d-ab315db34111
@@ -226,6 +226,7 @@ TYPE
SdEnvironment.String("Removed disk ");
SdEnvironment.String(devices.name);
SdEnvironment.Ln;
+ disk := devices;
devices := devices.next
ELSE
disk := devices;
@@ -240,6 +241,9 @@ TYPE
prev.next := disk.next
END;
+
+ disk.next := NIL;
+ Disks.registry.Remove(disk);
END
END HandleSdEvent;