fix stack effects for indent> and <indent

erg 2006-11-01 18:15:55 +00:00
parent 13ee15104b
commit a20edf692f
1 changed files with 2 additions and 2 deletions

View File

@ -63,9 +63,9 @@ M: block section-fits? ( section -- ? )
: change-indent ( n -- )
tab-size get * indent [ + ] change ;
: <indent ( block -- ) 1 change-indent ;
: <indent ( -- ) 1 change-indent ;
: indent> ( block -- ) -1 change-indent ;
: indent> ( -- ) -1 change-indent ;
! Text section
TUPLE: text string ;