From 50fd4f17c398d231de92ed3dd633f4911eb579ba Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 5 Aug 2009 01:15:06 -0500
Subject: [PATCH] Oops

---
 basis/stuff.factor | 20 --------------------
 1 file changed, 20 deletions(-)
 delete mode 100644 basis/stuff.factor

diff --git a/basis/stuff.factor b/basis/stuff.factor
deleted file mode 100644
index 2e5fa2dfae..0000000000
--- a/basis/stuff.factor
+++ /dev/null
@@ -1,20 +0,0 @@
-
-: spill-integer-base ( -- n )
-    stack-frame get spill-counts>> double-float-regs swap at
-    double-float-regs reg-size * ;
-
-: spill-integer@ ( n -- offset )
-    cells spill-integer-base + param@ ;
-
-: spill-float@ ( n -- offset )
-    double-float-regs reg-size * param@ ;
-
-: (stack-frame-size) ( stack-frame -- n )
-    [
-        {
-            [ spill-counts>> [ swap reg-size * ] { } assoc>map sum ]
-            [ gc-roots>> cells ]
-            [ params>> ]
-            [ return>> ]
-        } cleave
-    ] sum-outputs ;
\ No newline at end of file