alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

refactor

Browse Source
This commit is contained in:
Brad Nelson
2023-05-26 12:12:52 -07:00
parent 0f47287dfa
commit a50a33cae8
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
attic/oofda/oofda.fs
View File

@ -38,7 +38,6 @@ variable methods variable last-method
: m# ( "name" -- n ) method >body @ ; : m# ( "name" -- n ) method >body @ ;
: m: ( "name" ) method drop ; m: .construct ( make this 0 ) : m: ( "name" ) method drop ; m: .construct ( make this 0 )
: m! ( xt n class ) swap 3 + cells + ! ; : m! ( xt n class ) swap 3 + cells + ! ;
: field' ( "name" -- n ) ' >body @ ;
: nop-construct ; : nop-construct ;
m: .fallback m: .fallback
@ -57,6 +56,7 @@ m: .size m: .grow m: .vtable m: .parent m: .getClass
: create ( "name" ) create this .size , does> @ this + ; : create ( "name" ) create this .size , does> @ this + ;
: variable ( "name" ) create this .size , cell this .grow does> @ this + ; : variable ( "name" ) create this .size , cell this .grow does> @ this + ;
: value ( "name" ) create this .size , cell this .grow does> @ this + @ ; : value ( "name" ) create this .size , cell this .grow does> @ this + @ ;
: field' ( "name" -- n ) ' >body @ ;
: to ( n -- "name" ) field' postpone literal postpone this postpone + : to ( n -- "name" ) field' postpone literal postpone this postpone +
postpone ! ; immediate postpone ! ; immediate
: +to ( n -- "name" ) field' postpone literal postpone this postpone + : +to ( n -- "name" ) field' postpone literal postpone this postpone +