Fix abuse of spread in gdbm

2011-10-02 21:53:32 -07:00 · 2011-10-02 21:53:32 -07:00 · abdba98213
parent 062ba8523d
commit abdba98213
1 changed files with 2 additions and 1 deletions
--- a/extra/gdbm/gdbm.factor
+++ b/extra/gdbm/gdbm.factor
@ -76,7 +76,8 @@ DESTRUCTOR: gdbm-close

 : gdbm-store ( key content flag -- )
    [
-        { [ dbf ] [ object>datum ] [ object>datum ] [ ] } spread
+        [ dbf ] 3dip
+        [ object>datum ] [ object>datum ] [ ] tri*
        gdbm_store check-error
    ] with-destructors ;