SYMBOL: title
: set-title ( string -- )
- title get [ >box ] [ no-boilerplate ] if* ;
+ title get [ >box ] [ throw-no-boilerplate ] if* ;
: get-title ( -- string )
- title get [ value>> ] [ no-boilerplate ] if* ;
+ title get [ value>> ] [ throw-no-boilerplate ] if* ;
: write-title ( -- )
get-title write ;