fix stack effects for indent> and <indent
parent
13ee15104b
commit
a20edf692f
|
@ -63,9 +63,9 @@ M: block section-fits? ( section -- ? )
|
||||||
: change-indent ( n -- )
|
: change-indent ( n -- )
|
||||||
tab-size get * indent [ + ] change ;
|
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
|
! Text section
|
||||||
TUPLE: text string ;
|
TUPLE: text string ;
|
||||||
|
|
Loading…
Reference in New Issue