4DNav.file-chooser: fix compiler warning

2009-04-17 20:42:51 -05:00 · 2009-04-17 20:42:51 -05:00 · bbd496e304
parent f4cdcaa1ce
commit bbd496e304
1 changed files with 3 additions and 5 deletions
--- a/extra/4DNav/file-chooser/file-chooser.factor
+++ b/extra/4DNav/file-chooser/file-chooser.factor
@ -92,11 +92,9 @@ file-chooser H{
 ;

 : fc-load-file ( file-chooser file -- )
-  dupd [ selected-file>> ] [ name>> ] bi* swap set-model 
-  [ path>> value>> ] 
-  [ selected-file>> value>> append ] 
-  [ hook>> ] tri
-  call
+  over [ name>> ] [ selected-file>> ] bi* set-model 
+  [ [ path>> value>> ] [ selected-file>> value>> ] bi append ] [ hook>> ] bi
+  call( path -- )
 ; inline

 ! : fc-ok-action ( file-chooser -- quot )