From a50a33cae8cb297272727c6aaf8dca0f8a2bac72 Mon Sep 17 00:00:00 2001 From: Brad Nelson Date: Fri, 26 May 2023 12:12:52 -0700 Subject: [PATCH] refactor --- attic/oofda/oofda.fs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/attic/oofda/oofda.fs b/attic/oofda/oofda.fs index f297a0a..638ccc2 100644 --- a/attic/oofda/oofda.fs +++ b/attic/oofda/oofda.fs @@ -38,7 +38,6 @@ variable methods variable last-method : m# ( "name" -- n ) method >body @ ; : m: ( "name" ) method drop ; m: .construct ( make this 0 ) : m! ( xt n class ) swap 3 + cells + ! ; -: field' ( "name" -- n ) ' >body @ ; : nop-construct ; m: .fallback @@ -57,6 +56,7 @@ m: .size m: .grow m: .vtable m: .parent m: .getClass : create ( "name" ) create this .size , does> @ this + ; : variable ( "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 + postpone ! ; immediate : +to ( n -- "name" ) field' postpone literal postpone this postpone +