Changeset 13551


Ignore:
Timestamp:
Mar 24, 2010, 7:34:09 PM (10 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/objc-bridge/objc-runtime.lisp

    r13542 r13551  
    375375      nil)))
    376376
    377 (defun run-in-cocoa-process-and-wait  (f)
    378   (let* ((process *cocoa-event-process*)
    379          (success (cons nil nil))
    380          (done (make-semaphore)))
    381     (process-interrupt process #'(lambda ()
    382                                    (unwind-protect
    383                                         (progn
    384                                           (setf (car success) (funcall f)))
    385                                      (signal-semaphore done))))
    386     (wait-on-semaphore done)
    387     (car success)))
    388 
    389 
    390377(defun load-cocoa-framework ()
    391   (run-in-cocoa-process-and-wait
     378  (call-in-initial-process
    392379   #'(lambda ()
    393380       ;; We need to load and "initialize" the CoreFoundation library
Note: See TracChangeset for help on using the changeset viewer.