From 60447dd11af97ef37730b6e86a3f066da1ba6027 Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Fri, 26 May 2023 12:14:31 -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 638ccc2..273b58a 100644
--- a/attic/oofda/oofda.fs
+++ b/attic/oofda/oofda.fs
@@ -39,7 +39,6 @@ variable methods   variable last-method
 : m: ( "name" ) method drop ;   m: .construct  ( make this 0 )
 : m! ( xt n class ) swap 3 + cells + ! ;
 
-: nop-construct ;
 m: .fallback
 : undefined   last-method @ 2 cells - ( body> ) this .fallback ;
 : error-fallback ( xt -- ) ." Undefined method: " >name type cr throw -1 ;
@@ -50,6 +49,7 @@ create ClassClass
   oofda-max-methods 3 + cells , ( size )
   blank-vtable                  ( vtable[] )
 
+: nop-construct ;
 m: .size   m: .grow   m: .vtable   m: .parent   m: .getClass
 :noname ( xt n ) this m! ; m# .setMethod ClassClass m!