aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/base-execute.frt
blob: 44eaff850cd715d200355d87ce44ab86a8dcb8ac (plain)
1
2
3
4
5
6
7
\ execute xt with the content of BASE being u, and
\ restoring the original BASE afterwards.
: base-execute ( i*x xt u -- j*x ) \ gforth
    base @ >r
    base ! execute 
    r> base !
;