Changeset 2938
- Timestamp:
- Apr 6, 2012 11:32:55 AM (14 months ago)
- File:
-
- 1 edited
-
ofw/fs/ext2fs/recovery.fth (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
ofw/fs/ext2fs/recovery.fth
r2917 r2938 176 176 \ node is either the found one or the insertion point 177 177 : find-revoked ( d.block# -- d.block# node found? ) 178 revoke-list ['] block#> find-node drop ( d.block# node ) 179 3dup >r_block# 2@ d= ( d.block# node ) 178 revoke-list ['] block#> find-node if ( d.block# node ) 179 3dup >r_block# 2@ d= ( d.block# node found? ) 180 else ( d.block# node ) 181 false ( d.block# node found? ) 182 then ( d.block# node found? ) 180 183 ; 181 184 … … 225 228 \ node is either the found one or the insertion point 226 229 : find-overlay? ( d.block# -- d.block# node found? ) 227 revoke-list ['] block#> find-node drop ( d.block# node ) 228 3dup >r_block# 2@ d= ( d.block# node ) 230 overlay-list ['] block#> find-node if ( d.block# node ) 231 3dup >r_block# 2@ d= ( d.block# node found? ) 232 else ( d.block# node ) 233 false ( d.block# node found? ) 234 then ( d.block# node found? ) 229 235 ; 230 236
Note: See TracChangeset
for help on using the changeset viewer.
