Not logged in

Differences From Artifact [d61077a94badf255]:

File user/docl/tabcompletion.retro part of check-in [7352e89669] - Tab Completion by luke on 2010-09-12 21:10:22. [annotate] [view]

To Artifact [a3a9f240768f01ed]:

File user/docl/tabcompletion.retro part of check-in [c2f69bb48c] - small tweak to showCompletions by charleschilders on 2010-09-12 20:20:25. [annotate] [view]


@@ -34,9 +34,9 @@
       tib getLength 0 swap getSubset
       tib compare [ dup addCompletion ] ifTrue
     again ;
   : showCompletions
-    completions numCompletions
+    cr space space completions numCompletions
     [ getCompletion d->name type space ] loop ;
   : finishCompletion
     numCompletions 0; 1 =
     [ getCompletion d->name tib over getLength 1+ copy endOfBuffer ]