and [ nl ] when ;
: ($blank-line) ( -- )
- nl nl blank-line last-element set ;
+ nl nl blank-line last-element namespaces:set ;
: ($span) ( quot -- )
last-block? [ nl ] when
- span last-element set
+ span last-element namespaces:set
call ; inline
GENERIC: print-element ( element -- )
: ($block) ( quot -- )
?nl
- span last-element set
+ span last-element namespaces:set
call
- block last-element set ; inline
+ block last-element namespaces:set ; inline
! Some spans
: $nl ( children -- )
drop nl last-element get [ nl ] when
- blank-line last-element set ;
+ blank-line last-element namespaces:set ;
! Some blocks
: ($heading) ( children quot -- )