From 56648c2ca5fd0c66642936ad730680f10834cf51 Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <microdan@gmail.com>
Date: Fri, 25 Feb 2005 03:53:15 +0000
Subject: [PATCH] fixing carelessness

---
 contrib/algebra/infix.factor | 1 +
 1 file changed, 1 insertion(+)

diff --git a/contrib/algebra/infix.factor b/contrib/algebra/infix.factor
index 18fd9249a5..a8fc5a73de 100644
--- a/contrib/algebra/infix.factor
+++ b/contrib/algebra/infix.factor
@@ -107,6 +107,7 @@ M: namestack-manip (eval-infix)
     over length [ f , [ \ cons , ] times ] make-list
     [ list>vector ] append -rot (eval-infix) append ;
 
+DEFER: fold-consts
 : (| f ; parsing
 : | reverse f ; parsing
 : |) reverse infix fold-consts eval-infix swons \ call swons ; parsing