From 1cd285bcaa8112272ddb46fe641204599c08cbc6 Mon Sep 17 00:00:00 2001
From: "U-SLAVA-DFB8FF805\\Slava" <Slava@slava-dfb8ff805.(none)>
Date: Wed, 28 Jan 2009 01:57:14 -0600
Subject: [PATCH] Slots with declared type of callable or quotation now have an
 initial value [ ]

---
 core/slots/slots.factor | 1 +
 1 file changed, 1 insertion(+)
 mode change 100644 => 100755 core/slots/slots.factor

diff --git a/core/slots/slots.factor b/core/slots/slots.factor
old mode 100644
new mode 100755
index f166378d9d..24ff1b0f8b
--- 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 ;