From d0de0cc422521c1fe66de6650817b6d5c55139bb Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Mon, 27 Mar 2006 08:39:42 +0000
Subject: [PATCH] Minor fix for links-in, updated to do list to reflect
 remaining 0.81 tasks

---
 TODO.FACTOR.txt              | 22 ++++++++++++----------
 library/help/crossref.factor |  3 ++-
 2 files changed, 14 insertions(+), 11 deletions(-)

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 5bc0977423..b3ea2a335f 100644
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -1,12 +1,19 @@
+0.81:
+
+- x86 %box-struct
+- x86 %write-barrier
+- bundle freetype .dylib in the .app on OS X
+- x11 title bars are funny
+- x11 wheel mouse test
+- changelog in the UI
+- set resource path to image parent directory
+- amd64 %box-struct
+
 + portability:
 
 - win64 port
 - get factor running on mac intel
 - amd64 %unbox-struct
-- amd64 %box-struct
-- x86 %box-struct
-- x86 %write-barrier
-- bundle freetype .dylib in the .app on OS X
 - when generating a 32-bit image on a 64-bit system, large numbers which should
   be bignums become fixnums
 
@@ -21,10 +28,7 @@
 
 + ui/help:
 
-- x11:
-  - title bars are funny
-  - input methods
-  - wheel mouse test
+- x11 input methods
 - cocoa:
   - global menu bar with useful commands
   - make the launchpad a palette
@@ -37,7 +41,6 @@
   - use glRect
   - display lists
 - saving the image should save window configuration
-- changelog in the UI
 - make the UI look better, something like this:
   http://twb.ath.cx/~twb/darcs/OBSOLETE/factor/final.html
 - fix remaining HTML stream issues
@@ -77,7 +80,6 @@
 
 + misc:
 
-- set resource path to image parent directory
 - clean up stack effect generation code
 - code walker & exceptions
 - slice: if sequence or seq start is changed, abstraction violation
diff --git a/library/help/crossref.factor b/library/help/crossref.factor
index faa5ceb107..38983c71cc 100644
--- a/library/help/crossref.factor
+++ b/library/help/crossref.factor
@@ -42,7 +42,8 @@ M: array elements*
 
 SYMBOL: help-graph
 
-: links-in ( article -- ) help-graph get in-edges ;
+: links-in ( article -- )
+    dup link? [ link-name ] when help-graph get in-edges ;
 
 : xref-article ( article -- )
     [ links-out ] help-graph get add-vertex ;