From 82134b8417d6131b8b0cd127ff957f7856b3a4ce Mon Sep 17 00:00:00 2001 From: slava Date: Sun, 20 Aug 2006 18:39:45 +0000 Subject: [PATCH] Topology fix (iso between /\L and /\L* is not an algebra iso) --- contrib/topology/laplacian.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/topology/laplacian.factor b/contrib/topology/laplacian.factor index cc9fae5d6b..a231a5a8d3 100644 --- a/contrib/topology/laplacian.factor +++ b/contrib/topology/laplacian.factor @@ -8,7 +8,7 @@ IN: laplacian 1 swap associate boundaries set d ; : (i) ( x y -- i_y[x] ) - [ [ ((i)) ] each ] with-scope ; + [ [ ((i)) ] each ] with-scope ; : i ( x y -- i_y[x] ) #! Adjoint of left multiplication by y