From c06be95816ce809313f8e0ae5dc416ecf4fb8161 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Wed, 19 Oct 2011 22:58:02 -0700
Subject: [PATCH] compiler: no spurious safepoint at start of loops
---
basis/compiler/cfg/builder/builder.factor | 1 -
1 file changed, 1 deletion(-)
diff --git a/basis/compiler/cfg/builder/builder.factor b/basis/compiler/cfg/builder/builder.factor
index 627eeafac2..5f933e096b 100644
--- a/basis/compiler/cfg/builder/builder.factor
+++ b/basis/compiler/cfg/builder/builder.factor
@@ -102,7 +102,6 @@ GENERIC: emit-node ( node -- )
basic-block get swap loops get set-at ;
: emit-loop ( node -- )
- ##safepoint
##branch
begin-basic-block
[ label>> id>> remember-loop ] [ child>> emit-nodes ] bi ;