From 748e67afa492ccf46498cfa33541327aa11ad584 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 30 May 2009 04:15:10 +0000
Subject: 	* algebra/catdef.spad.pamphlet (SetCategory): Provide default 
 definition for before?.

---
 src/algebra/catdef.spad.pamphlet | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/algebra')

diff --git a/src/algebra/catdef.spad.pamphlet b/src/algebra/catdef.spad.pamphlet
index 7170da6e..ae0d4f50 100644
--- a/src/algebra/catdef.spad.pamphlet
+++ b/src/algebra/catdef.spad.pamphlet
@@ -1635,7 +1635,7 @@ SetCategory(): Category == Join(BasicType,CoercibleTo OutputForm) with
   add
       hash(s : %):  SingleInteger == SXHASH(s)$Lisp
       latex(s : %): String       == "\mbox{\bf Unimplemented}"
-
+      before?(x,y) == GGREATERP(y,x)$Foreign(Builtin)
 @
 
 \section{category STEP StepThrough}
-- 
cgit v1.2.3