Slots with declared type of callable or quotation now have an initial value [ ]

diff --git a/core/slots/slots.factor b/core/slots/slots.factor
old mode 100644 (file)
new mode 100755 (executable)
index f166378..24ff1b0
--- a/core/slots/slots.factor
+++ b/core/slots/slots.factor
@@ -151,6 +151,7 @@ M: class initial-value* no-initial-value ;
         { [ array bootstrap-word over class<= ] [ { } ] }
         { [ byte-array bootstrap-word over class<= ] [ B{ } ] }
         { [ simple-alien bootstrap-word over class<= ] [ <bad-alien> ] }
+        { [ quotation bootstrap-word over class<= ] [ [ ] ] }
         [ dup initial-value* ]
     } cond nip ;