core: subseq-index? -> subseq-of?

[factor.git] / basis / cocoa / application / application.factor

diff --git a/basis/cocoa/application/application.factor b/basis/cocoa/application/application.factor
index b560353442350eeb99f50fc6010b11f6d3a0375e..a73839789237046344ba046b4c41afed0d84cc55 100644 (file)
--- a/basis/cocoa/application/application.factor
+++ b/basis/cocoa/application/application.factor
@@ -17,7 +17,7 @@ CONSTANT: NSApplicationDelegateReplyFailure 2
 
 CONSTANT: NSAnyEventMask 0xffffffff
 
-FUNCTION: void NSBeep ( ) ;
+FUNCTION: void NSBeep ( )
 
 : with-cocoa ( quot -- )
     [ NSApp drop call ] with-autorelease-pool ; inline
@@ -39,10 +39,9 @@ FUNCTION: void NSBeep ( ) ;
     -> alloc -> init -> setDelegate: ;
 
 : running.app? ( -- ? )
-    #! Test if we're running a .app.
-    ".app"
+    ! Test if we're running a .app.
     NSBundle -> mainBundle -> bundlePath CF>string
-    subseq? ;
+    ".app" subseq-of? ;
 
 : assert.app ( message -- )
     running.app? [