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

4DNav.file-chooser: fix compiler warning

db4
Slava Pestov 2009-04-17 20:42:51 -05:00
parent f4cdcaa1ce
commit bbd496e304
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/4DNav/file-chooser/file-chooser.factor
View File

@ -92,11 +92,9 @@ file-chooser H{
; ;
: fc-load-file ( file-chooser file -- ) : fc-load-file ( file-chooser file -- )
dupd [ selected-file>> ] [ name>> ] bi* swap set-model over [ name>> ] [ selected-file>> ] bi* set-model
[ path>> value>> ] [ [ path>> value>> ] [ selected-file>> value>> ] bi append ] [ hook>> ] bi
[ selected-file>> value>> append ] call( path -- )
[ hook>> ] tri
call
; inline ; inline
! : fc-ok-action ( file-chooser -- quot ) ! : fc-ok-action ( file-chooser -- quot )