fix a few compile errors

diff --git a/basis/sorting/human/human.factor b/basis/sorting/human/human.factor
index 1c7392901b3857f394d2bc2da96c0fe2aa7f7978..c07ed8758ba0e1d9cf947d502a34ff3bc8ad3fc0 100644 (file)
--- a/basis/sorting/human/human.factor
+++ b/basis/sorting/human/human.factor
@@ -11,7 +11,7 @@ IN: sorting.human
 
 : human>=< ( obj1 obj2 -- >=< ) human<=> invert-comparison ; inline
 
-: human-compare ( obj1 obj2 quot -- <=> ) bi@ human<=> ;
+: human-compare ( obj1 obj2 quot -- <=> ) bi@ human<=> ; inline
 
 : human-sort ( seq -- seq' ) [ human<=> ] sort ;
 

diff --git a/extra/bank/bank.factor b/extra/bank/bank.factor
index 0f8b5581dfe582ff2d413527f2bd29a0b407e89d..25843356721166a3dbda212c5ddb9091f874ae02 100644 (file)
--- a/extra/bank/bank.factor
+++ b/extra/bank/bank.factor
@@ -59,7 +59,7 @@ C: <transaction> transaction
         [ dup [ over [ swap call ] dip ] dip 1 days time+ ] dip each-day
     ] [
         3drop
-    ] if ;
+    ] if ; inline
 
 : process-to-date ( account date -- account )
     over interest-last-paid>> 1 days time+

diff --git a/extra/irc/client/client.factor b/extra/irc/client/client.factor
index c82f2e292c3e21f694b168770aae1759ecdc8ff6..97fa65920908c5494a119c35f4cc6edfd22d194b 100755 (executable)
--- a/extra/irc/client/client.factor
+++ b/extra/irc/client/client.factor
@@ -165,7 +165,7 @@ M: irc-chat to-chat in-messages>> mailbox-put ;
     " hostname servername :irc.factor" irc-print ;
 
 : /CONNECT ( server port -- stream )
-    irc> connect>> call drop ;
+    irc> connect>> call drop ; inline
 
 : /JOIN ( channel password -- )
     "JOIN " irc-write