undo inline

db4
Doug Coleman 2009-04-17 15:10:50 -05:00
parent 364ea217ef
commit 3fc7b22284
1 changed files with 1 additions and 1 deletions

View File

@ -111,7 +111,7 @@ file-chooser H{
: line-selected-action ( file-chooser -- )
dup list>> list-value
dup directory?
[ fc-change-directory ] [ fc-load-file ] if ; inline
[ fc-change-directory ] [ fc-load-file ] if ;
: present-dir-element ( element -- string )
[ name>> ] [ directory? ] bi [ "-> " prepend ] when ;