Slowly clear out old data from a table

CREATE PROCEDURE `db`.`clear_table` (d timestamp)
BEGIN
    REPEAT
        delete from t where date < d limit 500;
    UNTIL ROW_COUNT() = 0 END REPEAT;
END