From db59ade218f2cf78a0b4714da884c9991ed9e5f6 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@oberon.internal.stack-effects.com>
Date: Sat, 10 May 2008 18:20:50 -0500
Subject: [PATCH] Fix for SINGLETON:
---
core/syntax/syntax.factor | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/core/syntax/syntax.factor b/core/syntax/syntax.factor
index b698985713..2410185b18 100755
--- a/core/syntax/syntax.factor
+++ b/core/syntax/syntax.factor
@@ -158,8 +158,7 @@ IN: bootstrap.syntax
] define-syntax
"SINGLETON:" [
- scan create-class-in
- dup save-location define-singleton-class
+ CREATE-CLASS define-singleton-class
] define-syntax
"TUPLE:" [