; ( -- n ) ; System ; runtime of value VE_DOVALUE: .dw $ff07 .db "(value)", 0 .dw VE_HEAD .set VE_HEAD = VE_DOVALUE XT_DOVALUE: .dw DO_COLON PFA_DOVALUE: .dw XT_DOCREATE .dw XT_REVEAL .dw XT_COMPILE .dw PFA_DOVALUE1 .dw XT_EXIT PFA_DOVALUE1: call_ DO_DODOES .dw XT_DUP .dw XT_ICELLPLUS .dw XT_FETCHI .dw XT_EXECUTE .dw XT_EXIT ; : (value) dup icell+ @i execute ;