classes.struct: moving to new/boa instead of <struct>/<struct-boa>

[factor.git] / extra / gdbm / gdbm.factor

diff --git a/extra/gdbm/gdbm.factor b/extra/gdbm/gdbm.factor
index 7a09649bd8b3258f400c72a46c6cf24c3ca91268..f261d3b5fe99c8752038b631ba06be737d3af75e 100644 (file)
--- a/extra/gdbm/gdbm.factor
+++ b/extra/gdbm/gdbm.factor
@@ -70,7 +70,7 @@ DESTRUCTOR: gdbm-close
 
 : object>datum ( obj -- datum )
     object>bytes [ malloc-byte-array &free ] [ length ] bi
-    datum <struct-boa> ;
+    datum boa ;
 
 : datum>object* ( datum -- obj ? )
     [ dptr>> ] [ dsize>> ] bi over