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

2009-01-28 01:57:14 -06:00 · 2009-01-28 01:57:14 -06:00 · 1cd285bcaa
parent 4e1748febd
commit 1cd285bcaa
1 changed files with 1 additions and 0 deletions
--- 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 ;