From 36d03dfa08f25d3e6b50b90e446ee5498848d586 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 16 Mar 2009 03:01:47 -0500
Subject: [PATCH] Use call( so that with-ui infers
---
basis/ui/backend/cocoa/cocoa.factor | 4 ++--
basis/ui/ui.factor | 4 ++--
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/basis/ui/backend/cocoa/cocoa.factor b/basis/ui/backend/cocoa/cocoa.factor
index 9888fc4e77..5cb02f5ad6 100755
--- a/basis/ui/backend/cocoa/cocoa.factor
+++ b/basis/ui/backend/cocoa/cocoa.factor
@@ -8,7 +8,7 @@ ui.backend ui.clipboards ui.gadgets ui.gadgets.worlds
ui.backend.cocoa.views core-foundation core-foundation.run-loop
core-graphics.types threads math.rectangles fry libc
generalizations alien.c-types cocoa.views
-combinators io.thread locals ;
+combinators io.thread locals call ;
IN: ui.backend.cocoa
TUPLE: handle ;
@@ -152,7 +152,7 @@ M: cocoa-ui-backend (with-ui)
"UI" assert.app [
[
init-clipboard
- cocoa-init-hook get call
+ cocoa-init-hook get call( -- )
start-ui
f io-thread-running? set-global
init-thread-timer
diff --git a/basis/ui/ui.factor b/basis/ui/ui.factor
index 42885aecb7..fe318101ee 100644
--- a/basis/ui/ui.factor
+++ b/basis/ui/ui.factor
@@ -153,7 +153,7 @@ PRIVATE>
"UI update" spawn drop ;
: start-ui ( quot -- )
- call notify-ui-thread start-ui-thread ;
+ call( -- ) notify-ui-thread start-ui-thread ;
: restore-windows ( -- )
[
@@ -193,6 +193,6 @@ M: object close-window
] "ui" add-init-hook
: with-ui ( quot -- )
- ui-running? [ call ] [ '[ init-ui @ ] (with-ui) ] if ;
+ ui-running? [ call( -- ) ] [ '[ init-ui @ ] (with-ui) ] if ;
HOOK: beep ui-backend ( -- )
\ No newline at end of file