From 58fd3a415ffaa80c89862c2520b567e6aaf7d93d Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Wed, 6 May 2009 12:36:34 -0500
Subject: [PATCH] make ^n foldable

---
 basis/math/functions/functions.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/math/functions/functions.factor b/basis/math/functions/functions.factor
index 41cb52a396..c8d71b1279 100644
--- a/basis/math/functions/functions.factor
+++ b/basis/math/functions/functions.factor
@@ -23,7 +23,7 @@ M: real sqrt
 
 <PRIVATE
 
-GENERIC# ^n 1 ( z w -- z^w )
+GENERIC# ^n 1 ( z w -- z^w ) foldable
 
 : (^n) ( z w -- z^w )
     make-bits 1 [ [ dupd * ] when [ sq ] dip ] reduce nip ; inline