steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Topology fix (iso between /\L and /\L* is not an algebra iso)

slava 2006-08-20 18:39:45 +00:00
parent 31496f0554
commit 82134b8417
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/topology/laplacian.factor
View File

@ -8,7 +8,7 @@ IN: laplacian
1 swap associate boundaries set d ; 1 swap associate boundaries set d ;
: (i) ( x y -- i_y[x] ) : (i) ( x y -- i_y[x] )
[ [ ((i)) ] each ] with-scope ; [ <reversed> [ ((i)) ] each ] with-scope ;
: i ( x y -- i_y[x] ) : i ( x y -- i_y[x] )
#! Adjoint of left multiplication by y #! Adjoint of left multiplication by y