use radix literals

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

diff --git a/extra/gdbm/gdbm.factor b/extra/gdbm/gdbm.factor
index 9e620fa793e354518eb2f089f108015e32057980..a69809f4e3dc97aaa4eaeb9df05f3db153273a13 100644 (file)
--- a/extra/gdbm/gdbm.factor
+++ b/extra/gdbm/gdbm.factor
@@ -14,7 +14,7 @@ TUPLE: gdbm
     { role initial: wrcreat }
     { sync boolean }
     { nolock boolean }
-    { mode integer initial: OCT: 644 } ;
+    { mode integer initial: 0o644 } ;
 
 : <gdbm> ( -- gdbm ) gdbm new ;