Changeset 13551

Timestamp:

Mar 24, 2010, 7:34:09 PM (11 years ago)

Author:

rme

Message:

Delete function run-in-cocoa-process-and-wait. (The function
call-in-initial-process is a slightly elaborated version of it.)

In load-cocoa-framework: use call-in-initial-process.

File:

• trunk/source/objc-bridge/objc-runtime.lisp (modified) (1 diff)

trunk/source/objc-bridge/objc-runtime.lisp

@@ -375 +375 @@
       nil)))
 
-(defun run-in-cocoa-process-and-wait  (f)
-  (let* ((process *cocoa-event-process*)
-         (success (cons nil nil))
-         (done (make-semaphore)))
-    (process-interrupt process #'(lambda ()
-                                   (unwind-protect
-                                        (progn
-                                          (setf (car success) (funcall f)))
-                                     (signal-semaphore done))))
-    (wait-on-semaphore done)
-    (car success)))
-
-
 (defun load-cocoa-framework ()
-  (run-in-cocoa-process-and-wait
+  (call-in-initial-process
    #'(lambda ()
        ;; We need to load and "initialize" the CoreFoundation library