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 ]