| \ copy it to make it unique; used for implementing a copy-on-write policy |
\ copy it to make it unique; used for implementing a copy-on-write policy |
| over @ class-parent @ class->map ( class-map offset parent-map ) |
over @ class-parent @ class->map ( class-map offset parent-map ) |
| over + @ >r \ the map for the interface for the parent |
over + @ >r \ the map for the interface for the parent |
| + dup @ ( mapp map ) |
+ dup @ ( interface-mapp interface-map ) |
| dup r> = |
dup r> = |
| if |
if |
| @ interface-map 2@ save-mem drop |
dup @ interface-map 2@ nip save-mem drop |
| swap ! |
swap ! |
| else |
else |
| 2drop |
2drop |
