Fixing web finish.

2022-07-14 16:51:21 -07:00
parent 5dbf1cf8d4
commit 50e77e3b3d
5 changed files with 20 additions and 10 deletions
--- a/common/tier2a_forth.fs
+++ b/common/tier2a_forth.fs
@ -21,4 +21,3 @@
 : >params ( xt -- n ) >flags& 2 + sw@ $ffff and ;
 : >size ( xt -- n ) dup >params cells swap >name-length aligned + 3 cells + ;
 : >link& ( xt -- a ) 2 cells - ;   : >link ( xt -- a ) >link& @ ;
-: >name ( xt -- a n ) dup >name-length swap >link& over aligned - swap ;