From ecf9010f6d5a88fa3d650a0c53e267865d07d9ca Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Fri, 10 Feb 2006 03:35:28 +0000
Subject: [PATCH] Fix PDFKit demo

---
 examples/cocoa-pdfkit.factor           | 2 +-
 library/cocoa/application-utils.factor | 1 -
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/examples/cocoa-pdfkit.factor b/examples/cocoa-pdfkit.factor
index 28ab3c57f5..ba7fd40788 100644
--- a/examples/cocoa-pdfkit.factor
+++ b/examples/cocoa-pdfkit.factor
@@ -6,7 +6,7 @@ objc-NSObject objc-NSWindow objc-PDFDocument objc-PDFView ;
 
 : <PDFDocument> ( url -- document )
     <CFURL> [autorelease]
-    PDFDocument swap [initWithURL:] [autorelease] ;
+    PDFDocument [alloc] swap [initWithURL:] [autorelease] ;
 
 : <PDFView> ( document -- view )
     PDFView [alloc] 0 0 500 500 <NSRect> [initWithFrame:]
diff --git a/library/cocoa/application-utils.factor b/library/cocoa/application-utils.factor
index dedea28d0a..48bf488b97 100644
--- a/library/cocoa/application-utils.factor
+++ b/library/cocoa/application-utils.factor
@@ -25,7 +25,6 @@ objc-NSAutoreleasePool objc-NSObject threads ;
 
 : event-loop ( -- )
     \ NSApplication get expired? [
-        drop
         NSApplication [sharedApplication]
         \ NSApplication set-global
         [ (event-loop) ] in-thread