]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/tools/deploy/windows/windows.factor
io.files: exists? -> file-exists? and rename primitive.
[factor.git] / basis / tools / deploy / windows / windows.factor
index 9286fb505da6a99184037aad7255bdb17fd1cb38..f7e370e83184dc6252ea51d1f6920e4a1a3e21c8 100644 (file)
@@ -21,7 +21,7 @@ CONSTANT: app-icon-resource-id "APPICON"
     vocab-dir "icon.ico" append-path ;
 
 : embed-ico ( vm-path vocab -- )
-    dup vocab-windows-icon-path vocab-append-path dup exists?
+    dup vocab-windows-icon-path vocab-append-path dup file-exists?
     [ binary file-contents app-icon-resource-id embed-icon-resource ]
     [ 2drop ] if ;