From 646a4dd925b8049f39dae33da1a560a5ba25110b Mon Sep 17 00:00:00 2001
From: Bruno Deferrari <utizoc@gmail.com>
Date: Wed, 18 Jun 2008 23:58:10 -0300
Subject: [PATCH 01/34] irc.client: Make add-listener a word instead of a
 generic method

---
 extra/irc/client/client.factor | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/extra/irc/client/client.factor b/extra/irc/client/client.factor
index e633f140fb..7760c3a2f3 100644
--- a/extra/irc/client/client.factor
+++ b/extra/irc/client/client.factor
@@ -326,6 +326,5 @@ PRIVATE>
         spawn-irc
     ] with-variable ;
 
-GENERIC: add-listener ( irc-client irc-listener -- )
-M: irc-listener add-listener ( irc-client irc-listener -- )
-    current-irc-client swap '[ , (add-listener) ] with-variable ;
+: irc-listener add-listener ( irc-listener irc-client -- )
+    current-irc-client '[ , (add-listener) ] with-variable ;

From f0ccba864529ba1015e30c86871e86265a697616 Mon Sep 17 00:00:00 2001
From: Phil Dawes <phil@phildawes.net>
Date: Fri, 27 Jun 2008 19:49:10 +0100
Subject: [PATCH 02/34] Added microsecond clock functionality. Windows version
 may not work as I don't have a windows box to test on, sorry!

---
 extra/micros/authors.txt            |  1 +
 extra/micros/backend/backend.factor |  4 ++++
 extra/micros/micros-docs.factor     | 14 ++++++++++++++
 extra/micros/micros-tests.factor    |  7 +++++++
 extra/micros/micros.factor          | 13 +++++++++++++
 extra/micros/summary.txt            |  1 +
 extra/micros/unix/unix.factor       |  6 ++++++
 extra/micros/windows/windows.factor |  7 +++++++
 extra/unix/time/time.factor         |  3 ++-
 9 files changed, 55 insertions(+), 1 deletion(-)
 create mode 100644 extra/micros/authors.txt
 create mode 100644 extra/micros/backend/backend.factor
 create mode 100644 extra/micros/micros-docs.factor
 create mode 100644 extra/micros/micros-tests.factor
 create mode 100644 extra/micros/micros.factor
 create mode 100644 extra/micros/summary.txt
 create mode 100644 extra/micros/unix/unix.factor
 create mode 100644 extra/micros/windows/windows.factor

diff --git a/extra/micros/authors.txt b/extra/micros/authors.txt
new file mode 100644
index 0000000000..0be42b2faa
--- /dev/null
+++ b/extra/micros/authors.txt
@@ -0,0 +1 @@
+Phil Dawes
diff --git a/extra/micros/backend/backend.factor b/extra/micros/backend/backend.factor
new file mode 100644
index 0000000000..905b6aa1ae
--- /dev/null
+++ b/extra/micros/backend/backend.factor
@@ -0,0 +1,4 @@
+IN: micros.backend
+USING: io.backend ;
+    
+HOOK: (micros) io-backend ( -- n )
diff --git a/extra/micros/micros-docs.factor b/extra/micros/micros-docs.factor
new file mode 100644
index 0000000000..98dcb9944e
--- /dev/null
+++ b/extra/micros/micros-docs.factor
@@ -0,0 +1,14 @@
+IN: micros
+USING: help.syntax help.markup kernel prettyprint sequences ;
+
+HELP: micros
+{ $values { "n" "an integer" } } 
+{ $description "Outputs the number of microseconds ellapsed since midnight January 1, 1970"
+} ;
+
+    
+HELP: micro-time
+{ $values { "quot" "a quot" }
+          { "n" "an integer" } }
+{ $description "executes the quotation and pushes the number of microseconds taken onto the stack"
+} ;
diff --git a/extra/micros/micros-tests.factor b/extra/micros/micros-tests.factor
new file mode 100644
index 0000000000..991ce04b26
--- /dev/null
+++ b/extra/micros/micros-tests.factor
@@ -0,0 +1,7 @@
+IN: micros.tests
+USING: micros tools.test math math.functions system kernel ;
+
+! a bit racy but I can't think of a better way to check this right now
+[ t ]
+[ millis 1000 / micros 1000000 / [ truncate ] bi@ = ] unit-test
+
diff --git a/extra/micros/micros.factor b/extra/micros/micros.factor
new file mode 100644
index 0000000000..554c838890
--- /dev/null
+++ b/extra/micros/micros.factor
@@ -0,0 +1,13 @@
+IN: micros
+USING: micros.backend system kernel combinators vocabs.loader math ;
+
+: micros ( -- n ) (micros) ; inline
+
+: micro-time ( quot -- n )
+  micros slip micros swap - ; inline
+
+{
+    { [ os unix? ] [ "micros.unix" ] }
+    { [ os windows? ] [ "micros.windows" ] }
+} cond require
+
diff --git a/extra/micros/summary.txt b/extra/micros/summary.txt
new file mode 100644
index 0000000000..c1bc9d6fce
--- /dev/null
+++ b/extra/micros/summary.txt
@@ -0,0 +1 @@
+Microsecond precision clock
diff --git a/extra/micros/unix/unix.factor b/extra/micros/unix/unix.factor
new file mode 100644
index 0000000000..c16d3623ac
--- /dev/null
+++ b/extra/micros/unix/unix.factor
@@ -0,0 +1,6 @@
+IN: micros.unix
+USING: micros.backend io.backend system alien.c-types kernel unix.time math ;
+
+M: unix (micros)
+  "timespec" <c-object> dup f gettimeofday drop
+  [ timespec-sec 1000000 * ] [ timespec-nsec ] bi + ;
diff --git a/extra/micros/windows/windows.factor b/extra/micros/windows/windows.factor
new file mode 100644
index 0000000000..79ca74e77c
--- /dev/null
+++ b/extra/micros/windows/windows.factor
@@ -0,0 +1,7 @@
+IN: micros.windows
+USING: system kernel windows.time math math.functions ;
+
+! 116444736000000000 is the windowstime epoch offset
+! since windowstime starts at 1600 and unix epoch is 1970
+M: windows (micros)
+  windows-time 116444736000000000 - 10 / truncate ;
\ No newline at end of file
diff --git a/extra/unix/time/time.factor b/extra/unix/time/time.factor
index 460631d9ea..4fbb20dca0 100644
--- a/extra/unix/time/time.factor
+++ b/extra/unix/time/time.factor
@@ -29,4 +29,5 @@ C-STRUCT: timespec
     [ set-timespec-sec ] keep ;
 
 FUNCTION: time_t time ( time_t* t ) ;
-FUNCTION: tm* localtime ( time_t* clock ) ;
\ No newline at end of file
+FUNCTION: tm* localtime ( time_t* clock ) ;
+FUNCTION: int gettimeofday ( timespec* TP, void* TZP ) ;

From 46a1e4a065485c165d0cef044084d561634f9cce Mon Sep 17 00:00:00 2001
From: Bruno Deferrari <utizoc@gmail.com>
Date: Fri, 27 Jun 2008 16:32:04 -0300
Subject: [PATCH 03/34] irc.client: Handle kicks, better handling of joins,
 fixes

---
 extra/irc/client/client.factor | 26 +++++++++++++++++---------
 1 file changed, 17 insertions(+), 9 deletions(-)

diff --git a/extra/irc/client/client.factor b/extra/irc/client/client.factor
index 7760c3a2f3..cc500fbe61 100644
--- a/extra/irc/client/client.factor
+++ b/extra/irc/client/client.factor
@@ -33,7 +33,6 @@ TUPLE: irc-listener in-messages out-messages ;
 TUPLE: irc-server-listener < irc-listener ;
 TUPLE: irc-channel-listener < irc-listener name password timeout ;
 TUPLE: irc-nick-listener < irc-listener name ;
-UNION: irc-named-listener irc-nick-listener irc-channel-listener ;
 
 : <irc-listener> ( -- irc-listener ) <mailbox> <mailbox> irc-listener boa ;
 
@@ -78,13 +77,19 @@ TUPLE: unhandled < irc-message ;
 <PRIVATE
 
 ! ======================================
-! Shortcuts
+! Utils
 ! ======================================
 
 : irc> ( -- irc-client ) current-irc-client get ;
 : irc-stream> ( -- stream ) irc> stream>> ;
 : irc-write ( s -- ) irc-stream> stream-write ;
 : irc-print ( s -- ) irc-stream> [ stream-print ] keep stream-flush ;
+: listener> ( name -- listener/f ) irc> listeners>> at ;
+: unregister-listener ( name -- ) irc> listeners>> delete-at ;
+
+: to-listener ( message name -- )
+    listener> [ f listener> ] unless*
+    [ in-messages>> mailbox-put ] [ drop ] if* ;
 
 ! ======================================
 ! IRC client messages
@@ -188,8 +193,7 @@ TUPLE: unhandled < irc-message ;
 GENERIC: handle-incoming-irc ( irc-message -- )
 
 M: irc-message handle-incoming-irc ( irc-message -- )
-    f irc> listeners>> at
-    [ in-messages>> mailbox-put ] [ drop ] if* ;
+    f listener> [ in-messages>> mailbox-put ] [ drop ] if* ;
 
 M: logged-in handle-incoming-irc ( logged-in -- )
     name>> irc> nick>> (>>name) ;
@@ -201,11 +205,15 @@ M: nick-in-use handle-incoming-irc ( nick-in-use -- )
     name>> "_" append /NICK ;
 
 M: privmsg handle-incoming-irc ( privmsg -- )
-    dup irc-message-origin irc> listeners>> [ at ] keep
-    '[ f , at ] unless* [ in-messages>> mailbox-put ] [ drop ] if* ;
+    dup irc-message-origin to-listener ;
 
 M: join handle-incoming-irc ( join -- )
-    irc> join-messages>> mailbox-put ;
+    dup trailing>> listener>
+    [ irc> join-messages>> ] unless* mailbox-put ;
+
+M: kick handle-incoming-irc ( kick -- )
+    [ ] [ channel>> ] [ who>> ] tri me? [ dup unregister-listener ] when
+    to-listener ;
 
 M: irc-broadcasted-message handle-incoming-irc ( irc-broadcasted-message -- )
     broadcast-message-to-listeners ;
@@ -326,5 +334,5 @@ PRIVATE>
         spawn-irc
     ] with-variable ;
 
-: irc-listener add-listener ( irc-listener irc-client -- )
-    current-irc-client '[ , (add-listener) ] with-variable ;
+: add-listener ( irc-listener irc-client -- )
+    current-irc-client rot '[ , (add-listener) ] with-variable ;

From 69266e3c4d78c5dbf4af4ee584c0fe97947ed344 Mon Sep 17 00:00:00 2001
From: Bruno Deferrari <utizoc@gmail.com>
Date: Fri, 27 Jun 2008 17:47:25 -0300
Subject: [PATCH 04/34] irc.client: Remove unused imports, add authors.txt, add
 more tests.

---
 extra/irc/client/authors.txt         |  1 +
 extra/irc/client/client-tests.factor | 20 ++++++++++++--------
 extra/irc/client/client.factor       |  6 +++---
 3 files changed, 16 insertions(+), 11 deletions(-)

diff --git a/extra/irc/client/authors.txt b/extra/irc/client/authors.txt
index 5674120196..8421e8b778 100644
--- a/extra/irc/client/authors.txt
+++ b/extra/irc/client/authors.txt
@@ -1,2 +1,3 @@
+Bruno Deferrari
 Doug Coleman
 Slava Pestov
diff --git a/extra/irc/client/client-tests.factor b/extra/irc/client/client-tests.factor
index 304ab25402..24a753d615 100644
--- a/extra/irc/client/client-tests.factor
+++ b/extra/irc/client/client-tests.factor
@@ -1,7 +1,8 @@
 USING: kernel tools.test accessors arrays sequences qualified
        io.streams.string io.streams.duplex namespaces threads
-       calendar irc.client.private ;
+       calendar irc.client.private concurrency.mailboxes classes ;
 EXCLUDE: irc.client => join ;
+RENAME: join irc.client => join_
 IN: irc.client.tests
 
 ! Utilities
@@ -64,13 +65,16 @@ privmsg new
                   [ connect-irc ] keep 1 seconds sleep
                     nick>> name>> ] unit-test
 
-! TODO: Channel join messages
-! { ":factorbot!n=factorbo@some.where JOIN :#factortest"
-!   ":ircserver.net MODE #factortest +ns"
-!   ":ircserver.net 353 factorbot @ #factortest :@factorbot "
-!   ":ircserver.net 366 factorbot #factortest :End of /NAMES list."
-!   ":ircserver.net 477 factorbot #factortest :[ircserver-info] blah blah"
-! } make-client dup "factorbot" set-nick
+{ join_ "#factortest" } [
+             { ":factorbot!n=factorbo@some.where JOIN :#factortest"
+             ":ircserver.net MODE #factortest +ns"
+             ":ircserver.net 353 factorbot @ #factortest :@factorbot "
+             ":ircserver.net 366 factorbot #factortest :End of /NAMES list."
+             ":ircserver.net 477 factorbot #factortest :[ircserver-info] blah blah"
+             } make-client dup "factorbot" set-nick
+             [ connect-irc ] keep 1 seconds sleep
+             join-messages>> 5 seconds mailbox-get-timeout
+             [ class ] [ trailing>> ] bi ] unit-test
 ! TODO: user join
 ! ":somedude!n=user@isp.net JOIN :#factortest"
 ! TODO: channel message
diff --git a/extra/irc/client/client.factor b/extra/irc/client/client.factor
index cc500fbe61..5b8fbf62ee 100644
--- a/extra/irc/client/client.factor
+++ b/extra/irc/client/client.factor
@@ -1,8 +1,8 @@
-! Copyright (C) 2007 Doug Coleman, Slava Pestov.
+! Copyright (C) 2008 Bruno Deferrari, Doug Coleman, Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: arrays combinators concurrency.mailboxes fry io strings
+USING: combinators concurrency.mailboxes fry io strings
        io.encodings.8-bit io.sockets kernel namespaces sequences
-       sequences.lib splitting threads calendar classes.tuple
+       splitting threads calendar classes.tuple
        classes ascii assocs accessors destructors continuations ;
 IN: irc.client
 

From 8aa974fcc4ed8b04136fd28cefbbd9bed0e2e74d Mon Sep 17 00:00:00 2001
From: "U-SLAVA-DFB8FF805\\Slava" <Slava@slava-dfb8ff805.(none)>
Date: Fri, 27 Jun 2008 19:45:22 -0500
Subject: [PATCH 05/34] Remove unused word

---
 extra/io/windows/windows.factor | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/extra/io/windows/windows.factor b/extra/io/windows/windows.factor
index 0892563a02..a290821163 100755
--- a/extra/io/windows/windows.factor
+++ b/extra/io/windows/windows.factor
@@ -52,7 +52,3 @@ HOOK: add-completion io-backend ( port -- )
     "SECURITY_ATTRIBUTES" <c-object>
     "SECURITY_ATTRIBUTES" heap-size
     over set-SECURITY_ATTRIBUTES-nLength ;
-
-: security-attributes-inherit ( -- obj )
-    default-security-attributes
-    TRUE over set-SECURITY_ATTRIBUTES-bInheritHandle ; foldable

From 97983dabb52b123ea647da771aac7313303c314a Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 27 Jun 2008 20:04:03 -0500
Subject: [PATCH 06/34] Better SSE2 check

---
 core/cpu/x86/32/32.factor | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

diff --git a/core/cpu/x86/32/32.factor b/core/cpu/x86/32/32.factor
index 3c6e4963e1..c03d74c9a4 100755
--- a/core/cpu/x86/32/32.factor
+++ b/core/cpu/x86/32/32.factor
@@ -5,7 +5,7 @@ cpu.x86.architecture cpu.x86.intrinsics cpu.x86.allot
 cpu.architecture kernel kernel.private math namespaces sequences
 generator.registers generator.fixup generator system layouts
 alien.compiler combinators command-line
-compiler compiler.units io vocabs.loader accessors ;
+compiler compiler.units io vocabs.loader accessors init ;
 IN: cpu.x86.32
 
 ! We implement the FFI for Linux, OS X and Windows all at once.
@@ -262,9 +262,11 @@ os windows? [
     4 "double" c-type set-c-type-align
 ] unless
 
-: sse2? ( -- ? ) "Intrinsic" throw ;
+: (sse2?) ( -- ? ) "Intrinsic" throw ;
 
-\ sse2? [
+<<
+
+\ (sse2?) [
     { EAX EBX ECX EDX } [ PUSH ] each
     EAX 1 MOV
     CPUID
@@ -274,6 +276,10 @@ os windows? [
     JE
 ] { } define-if-intrinsic
 
+>>
+
+: sse2? ( -- ? ) (sse2?) ;
+
 "-no-sse2" cli-args member? [
     "Checking if your CPU supports SSE2..." print flush
     [ optimized-recompile-hook ] recompile-hook [
@@ -282,6 +288,14 @@ os windows? [
     [
         " - yes" print
         "cpu.x86.sse2" require
+        [
+            sse2? [
+                "This image was built to use SSE2, which your CPU does not support." print
+                "You will need to bootstrap Factor again." print
+                flush
+                1 exit
+            ] unless
+        ] "cpu.x86" add-init-hook
     ] [
         " - no" print
     ] if

From bf490cda94dcf5359625ac79fb9a9b25191d6c56 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 27 Jun 2008 20:10:47 -0500
Subject: [PATCH 07/34] Minor append-path improvement

---
 core/io/files/files-tests.factor | 12 +++++++++++-
 core/io/files/files.factor       |  1 +
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/core/io/files/files-tests.factor b/core/io/files/files-tests.factor
index e201d663a6..cbe03c9ffd 100755
--- a/core/io/files/files-tests.factor
+++ b/core/io/files/files-tests.factor
@@ -1,7 +1,8 @@
 IN: io.files.tests
 USING: tools.test io.files io.files.private io threads kernel
 continuations io.encodings.ascii io.files.unique sequences
-strings accessors io.encodings.utf8 math destructors ;
+strings accessors io.encodings.utf8 math destructors
+namespaces ;
 
 \ exists? must-infer
 \ (exists?) must-infer
@@ -276,3 +277,12 @@ strings accessors io.encodings.utf8 math destructors ;
 
 [ "touch-twice-test" temp-file delete-file ] ignore-errors
 [ ] [ 2 [ "touch-twice-test" temp-file touch-file ] times ] unit-test
+
+! aum's bug
+[
+    "." current-directory set
+    ".." "resource-path" set
+    [ "../core/bootstrap/stage2.factor" ]
+    [ "resource:core/bootstrap/stage2.factor" (normalize-path) ]
+    unit-test
+] with-scope
diff --git a/core/io/files/files.factor b/core/io/files/files.factor
index 56a9a461cf..db0d2da1ef 100755
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@@ -121,6 +121,7 @@ PRIVATE>
     {
         { [ over empty? ] [ append-path-empty ] }
         { [ dup empty? ] [ drop ] }
+        { [ over right-trim-separators "." = ] [ nip ] }
         { [ dup absolute-path? ] [ nip ] }
         { [ dup head.? ] [ rest left-trim-separators append-path ] }
         { [ dup head..? ] [

From 53f941b8df709da7b8346404792001b58fafa027 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 27 Jun 2008 20:15:38 -0500
Subject: [PATCH 08/34] Generalize test

---
 extra/io/unix/pipes/pipes-tests.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/io/unix/pipes/pipes-tests.factor b/extra/io/unix/pipes/pipes-tests.factor
index 27a490d801..6ea74043ca 100644
--- a/extra/io/unix/pipes/pipes-tests.factor
+++ b/extra/io/unix/pipes/pipes-tests.factor
@@ -2,7 +2,7 @@ USING: tools.test io.pipes io.unix.pipes io.encodings.utf8
 io.encodings io namespaces sequences ;
 IN: io.unix.pipes.tests
 
-[ { 0 0 } ] [ { "ls" "grep x" } run-pipeline ] unit-test
+[ { 0 0 } ] [ { "ls" "grep ." } run-pipeline ] unit-test
 
 [ { 0 f 0 } ] [
     {
@@ -12,6 +12,6 @@ IN: io.unix.pipes.tests
             output-stream [ utf8 <encoder> ] change
             input-stream get lines reverse [ print ] each f
         ]
-        "grep x"
+        "grep ."
     } run-pipeline
 ] unit-test

From 9dcf4ebcd3cd84c1a5cd173ad75c3c2628f109fe Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 27 Jun 2008 20:18:51 -0500
Subject: [PATCH 09/34] Fix micros.windows

---
 extra/micros/windows/windows.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/micros/windows/windows.factor b/extra/micros/windows/windows.factor
index 79ca74e77c..b2beab720d 100644
--- a/extra/micros/windows/windows.factor
+++ b/extra/micros/windows/windows.factor
@@ -1,5 +1,5 @@
 IN: micros.windows
-USING: system kernel windows.time math math.functions ;
+USING: system kernel windows.time math math.functions micros.backend ;
 
 ! 116444736000000000 is the windowstime epoch offset
 ! since windowstime starts at 1600 and unix epoch is 1970

From be9d6326dd5fd558fe412d0466de65883d0303b2 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 27 Jun 2008 21:11:58 -0500
Subject: [PATCH 10/34] Fix inference

---
 extra/ori/ori-tests.factor | 9 +++++++++
 extra/ori/ori.factor       | 2 +-
 2 files changed, 10 insertions(+), 1 deletion(-)
 create mode 100644 extra/ori/ori-tests.factor

diff --git a/extra/ori/ori-tests.factor b/extra/ori/ori-tests.factor
new file mode 100644
index 0000000000..6121ab101e
--- /dev/null
+++ b/extra/ori/ori-tests.factor
@@ -0,0 +1,9 @@
+IN: ori.tests
+USING: ori tools.test ;
+
+\ pitch-up   must-infer
+\ pitch-down must-infer
+\ turn-left  must-infer
+\ turn-right must-infer
+\ roll-left  must-infer
+\ roll-right must-infer
diff --git a/extra/ori/ori.factor b/extra/ori/ori.factor
index 7a32fdbf50..20f022f19f 100644
--- a/extra/ori/ori.factor
+++ b/extra/ori/ori.factor
@@ -17,7 +17,7 @@ C: <ori> ori
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-: make-matrix ( quot width -- matrix ) >r { } make r> group ;
+: make-matrix ( quot width -- matrix ) >r { } make r> group ; inline
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 

From 39462dbc94ef31bb08059f896ef5614ec0c8ed65 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 27 Jun 2008 21:12:43 -0500
Subject: [PATCH 11/34] Fix stack underflow in lsys

---
 extra/lsys/strings/interpret/interpret.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/lsys/strings/interpret/interpret.factor b/extra/lsys/strings/interpret/interpret.factor
index 1d992cc1e2..8d27b29d22 100644
--- a/extra/lsys/strings/interpret/interpret.factor
+++ b/extra/lsys/strings/interpret/interpret.factor
@@ -22,7 +22,7 @@ VAR: command-table
 : exec-command* ( string -- )
   [ parameter ] [ command ] bi
   command-table> at dup
-  [ 1 tail* call ] [ 3drop ] if ;
+  [ 1 tail* call ] [ 2drop ] if ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 

From a649f9dc5f04b3bf8546c08835204e806e35c86b Mon Sep 17 00:00:00 2001
From: slava <slava@slava-laptop.(none)>
Date: Fri, 27 Jun 2008 21:34:18 -0500
Subject: [PATCH 12/34] Fix inotify

---
 extra/io/monitors/monitors-tests.factor      | 30 ++++++++++++++++++++
 extra/io/unix/linux/monitors/monitors.factor |  7 +++--
 2 files changed, 35 insertions(+), 2 deletions(-)

diff --git a/extra/io/monitors/monitors-tests.factor b/extra/io/monitors/monitors-tests.factor
index bd33954436..2b1191d4de 100755
--- a/extra/io/monitors/monitors-tests.factor
+++ b/extra/io/monitors/monitors-tests.factor
@@ -108,4 +108,34 @@ os { winnt linux macosx } member? [
         [ [ t ] [ "m" get next-change 2drop ] [ ] while ] must-fail
         [ ] [ "m" get dispose ] unit-test
     ] with-monitors
+    
+    ! On Linux, a notification on the directory itself would report an invalid
+    ! path name
+    [
+        [ ] [ "monitor-test-self" temp-file make-directories ] unit-test
+        
+        ! Non-recursive
+        [ ] [ "monitor-test-self" temp-file f <monitor> "m" set ] unit-test
+
+        [ ] [ "monitor-test-self" temp-file touch-file ] unit-test
+
+        [ t ] [
+            "m" get next-change drop
+            [ "." = ] [ "monitor-test-self" temp-file = ] bi or
+        ] unit-test
+
+        [ ] [ "m" get dispose ] unit-test
+        
+        ! Recursive
+        [ ] [ "monitor-test-self" temp-file t <monitor> "m" set ] unit-test
+
+        [ ] [ "monitor-test-self" temp-file touch-file ] unit-test
+
+        [ t ] [
+            "m" get next-change drop
+            [ "." = ] [ "monitor-test-self" temp-file = ] bi or
+        ] unit-test
+
+        [ ] [ "m" get dispose ] unit-test
+    ] with-monitors
 ] when
diff --git a/extra/io/unix/linux/monitors/monitors.factor b/extra/io/unix/linux/monitors/monitors.factor
index a59d5dfb4d..ba9eab1e9e 100644
--- a/extra/io/unix/linux/monitors/monitors.factor
+++ b/extra/io/unix/linux/monitors/monitors.factor
@@ -83,12 +83,15 @@ M: linux-monitor dispose* ( monitor -- )
         drop
     ] { } make prune ;
 
+: parse-event-name ( event -- name )
+    dup inotify-event-len zero?
+    [ drop "." ] [ inotify-event-name utf8 alien>string ] if ;
+
 : parse-file-notify ( buffer -- path changed )
     dup inotify-event-mask ignore-flags? [
         drop f f
     ] [
-        [ inotify-event-name utf8 alien>string ]
-        [ inotify-event-mask parse-action ] bi
+        [ parse-event-name ] [ inotify-event-mask parse-action ] bi
     ] if ;
 
 : events-exhausted? ( i buffer -- ? )

From 5ddaeccf219d737ec0b74025e34f64bef505f369 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 27 Jun 2008 21:51:42 -0500
Subject: [PATCH 13/34] Minor documentation updates

---
 extra/help/handbook/handbook.factor           |  6 ++--
 extra/io/monitors/monitors-docs.factor        | 10 +++++-
 extra/io/monitors/monitors-tests.factor       | 30 ----------------
 .../unix/linux/monitors/monitors-tests.factor | 34 +++++++++++++++++++
 extra/io/unix/linux/monitors/monitors.factor  |  2 +-
 extra/models/models-docs.factor               |  4 ++-
 extra/ui/ui-docs.factor                       |  4 +--
 7 files changed, 53 insertions(+), 37 deletions(-)
 create mode 100644 extra/io/unix/linux/monitors/monitors-tests.factor

diff --git a/extra/help/handbook/handbook.factor b/extra/help/handbook/handbook.factor
index 246ad56e51..b13ac630b3 100755
--- a/extra/help/handbook/handbook.factor
+++ b/extra/help/handbook/handbook.factor
@@ -88,6 +88,7 @@ $nl
 $nl
 "The basic building blocks:"
 { $subsection "threads" }
+{ $subsection "alarms" }
 "High-level abstractions:"
 { $subsection "concurrency.combinators" }
 { $subsection "concurrency.promises" }
@@ -274,6 +275,7 @@ ARTICLE: "handbook" "Factor documentation"
 { $heading "Library reference" }
 { $subsection "numbers" }
 { $subsection "collections" }
+{ $subsection "models" }
 { $subsection "io" }
 { $subsection "concurrency" }
 { $subsection "system" }
@@ -288,8 +290,8 @@ ARTICLE: "handbook" "Factor documentation"
 { $subsection "compiler" }
 { $subsection "layouts" }
 { $heading "User interface" }
-{ $about "ui" }
-{ $about "ui.tools" }
+{ $subsection "ui" }
+{ $subsection "ui-tools" }
 { $heading "Index" }
 { $subsection "primitive-index" }
 { $subsection "error-index" }
diff --git a/extra/io/monitors/monitors-docs.factor b/extra/io/monitors/monitors-docs.factor
index b81bd1d303..ce59e23b45 100755
--- a/extra/io/monitors/monitors-docs.factor
+++ b/extra/io/monitors/monitors-docs.factor
@@ -55,23 +55,31 @@ ARTICLE: "io.monitors.descriptors" "File system change descriptors"
 { $subsection +rename-file+ } ;
 
 ARTICLE: "io.monitors.platforms" "Monitors on different platforms"
-"Whether the " { $snippet "path" } " output value of " { $link next-change } " contains an absolute path or a path relative to the path given to " { $link <monitor> } " is platform-specific. User code should not assume either case."
+"Whether the " { $snippet "path" } " output value of " { $link next-change } " contains an absolute path or a path relative to the path given to " { $link <monitor> } " is unspecified, and may even vary on the same platform. User code should not assume either case."
+$nl
+"If the immediate path being monitored was changed, then " { $snippet "path" } " will equal " { $snippet "\"\"" } "; however this condition is not reported on all platforms. See below."
 { $heading "Mac OS X" }
 "Factor uses " { $snippet "FSEventStream" } "s to implement monitors on Mac OS X. This requires Mac OS X 10.5 or later."
 $nl
 { $snippet "FSEventStream" } "s always monitor directory hierarchies recursively, and the " { $snippet "recursive?" } " parameter to " { $link <monitor> } " has no effect."
 $nl
 "The " { $snippet "changed" } " output value of the " { $link next-change } " word always outputs " { $link +modify-file+ } " and the " { $snippet "path" } " output value is always the directory containing the file that changed. Unlike other platforms, fine-grained information is not available."
+$nl
+"Only directories may be monitored, not individual files. Changes to the directory itself (permissions, modification time, and so on) are not reported; only changes to children are reported."
 { $heading "Windows" }
 "Factor uses " { $snippet "ReadDirectoryChanges" } " to implement monitors on Windows."
 $nl
 "Both recursive and non-recursive monitors are directly supported by the operating system."
+$nl
+"Only directories may be monitored, not individual files. Changes to the directory itself (permissions, modification time, and so on) are not reported; only changes to children are reported."
 { $heading "Linux" }
 "Factor uses " { $snippet "inotify" } " to implement monitors on Linux. This requires Linux kernel version 2.6.16 or later."
 $nl
 "Factor simulates recursive monitors by creating a hierarchy of monitors for every subdirectory, since " { $snippet "inotify" } " can only monitor a single directory. This is transparent to user code."
 $nl
 "Inside a single " { $link with-monitors } " scope, only one monitor may be created for any given directory."
+$nl
+"Both directories and files may be monitored. Unlike Mac OS X and Windows, changes to the immediate directory being monitored (permissions, modification time, and so on) are reported."
 { $heading "BSD" }
 "Factor uses " { $snippet "kqueue" } " to implement monitors on BSD."
 $nl
diff --git a/extra/io/monitors/monitors-tests.factor b/extra/io/monitors/monitors-tests.factor
index 2b1191d4de..bd33954436 100755
--- a/extra/io/monitors/monitors-tests.factor
+++ b/extra/io/monitors/monitors-tests.factor
@@ -108,34 +108,4 @@ os { winnt linux macosx } member? [
         [ [ t ] [ "m" get next-change 2drop ] [ ] while ] must-fail
         [ ] [ "m" get dispose ] unit-test
     ] with-monitors
-    
-    ! On Linux, a notification on the directory itself would report an invalid
-    ! path name
-    [
-        [ ] [ "monitor-test-self" temp-file make-directories ] unit-test
-        
-        ! Non-recursive
-        [ ] [ "monitor-test-self" temp-file f <monitor> "m" set ] unit-test
-
-        [ ] [ "monitor-test-self" temp-file touch-file ] unit-test
-
-        [ t ] [
-            "m" get next-change drop
-            [ "." = ] [ "monitor-test-self" temp-file = ] bi or
-        ] unit-test
-
-        [ ] [ "m" get dispose ] unit-test
-        
-        ! Recursive
-        [ ] [ "monitor-test-self" temp-file t <monitor> "m" set ] unit-test
-
-        [ ] [ "monitor-test-self" temp-file touch-file ] unit-test
-
-        [ t ] [
-            "m" get next-change drop
-            [ "." = ] [ "monitor-test-self" temp-file = ] bi or
-        ] unit-test
-
-        [ ] [ "m" get dispose ] unit-test
-    ] with-monitors
 ] when
diff --git a/extra/io/unix/linux/monitors/monitors-tests.factor b/extra/io/unix/linux/monitors/monitors-tests.factor
new file mode 100644
index 0000000000..923bfaa890
--- /dev/null
+++ b/extra/io/unix/linux/monitors/monitors-tests.factor
@@ -0,0 +1,34 @@
+IN: io.unix.linux.monitors.tests
+USING: io.monitors tools.test io.files system sequences
+continuations namespaces concurrency.count-downs kernel io
+threads calendar prettyprint destructors io.timeouts ;
+
+! On Linux, a notification on the directory itself would report an invalid
+! path name
+[
+    [ ] [ "monitor-test-self" temp-file make-directories ] unit-test
+    
+    ! Non-recursive
+    [ ] [ "monitor-test-self" temp-file f <monitor> "m" set ] unit-test
+
+    [ ] [ "monitor-test-self" temp-file touch-file ] unit-test
+
+    [ t ] [
+        "m" get next-change drop
+        [ "." = ] [ "monitor-test-self" temp-file = ] bi or
+    ] unit-test
+
+    [ ] [ "m" get dispose ] unit-test
+    
+    ! Recursive
+    [ ] [ "monitor-test-self" temp-file t <monitor> "m" set ] unit-test
+
+    [ ] [ "monitor-test-self" temp-file touch-file ] unit-test
+
+    [ t ] [
+        "m" get next-change drop
+        [ "" = ] [ "monitor-test-self" temp-file = ] bi or
+    ] unit-test
+
+    [ ] [ "m" get dispose ] unit-test
+] with-monitors
diff --git a/extra/io/unix/linux/monitors/monitors.factor b/extra/io/unix/linux/monitors/monitors.factor
index ba9eab1e9e..2ecf53ce1e 100644
--- a/extra/io/unix/linux/monitors/monitors.factor
+++ b/extra/io/unix/linux/monitors/monitors.factor
@@ -85,7 +85,7 @@ M: linux-monitor dispose* ( monitor -- )
 
 : parse-event-name ( event -- name )
     dup inotify-event-len zero?
-    [ drop "." ] [ inotify-event-name utf8 alien>string ] if ;
+    [ drop "" ] [ inotify-event-name utf8 alien>string ] if ;
 
 : parse-file-notify ( buffer -- path changed )
     dup inotify-event-mask ignore-flags? [
diff --git a/extra/models/models-docs.factor b/extra/models/models-docs.factor
index 8cccb1c634..da275e934a 100755
--- a/extra/models/models-docs.factor
+++ b/extra/models/models-docs.factor
@@ -232,8 +232,10 @@ HELP: move-by-page
 { $side-effects "range" } ;
 
 ARTICLE: "models" "Models"
-"The Factor UI provides basic support for dataflow programming via " { $emphasis "models" } " and " { $emphasis "controls" } ". A model is an observable value. Changing a model's value notifies other objects which depend on the model automatically, and models may depend on each other's values."
+"The " { $vocab-link "models" } " vocabulary provides basic support for dataflow programming. A model is an observable value. Changing a model's value notifies other objects which depend on the model automatically, and models may depend on each other's values."
 $nl
+"The class of models:"
+{ $subsection model }
 "Creating models:"
 { $subsection <model> }
 "Adding and removing connections:"
diff --git a/extra/ui/ui-docs.factor b/extra/ui/ui-docs.factor
index 1b1e9d99f3..61036f1004 100755
--- a/extra/ui/ui-docs.factor
+++ b/extra/ui/ui-docs.factor
@@ -89,8 +89,8 @@ ARTICLE: "building-ui" "Building user interfaces"
 { $subsection "ui-geometry" }
 { $subsection "ui-layouts" }
 { $subsection "gadgets" }
-{ $subsection "models" }
-{ $subsection "ui-windows" } ;
+{ $subsection "ui-windows" }
+{ $see-also "models" } ;
 
 ARTICLE: "gadgets" "Pre-made UI gadgets"
 { $subsection "ui.gadgets.labels" }

From 6b1cea4a6a474e17f57d826f407d82500f8eab2a Mon Sep 17 00:00:00 2001
From: slava <slava@slava-laptop.(none)>
Date: Fri, 27 Jun 2008 22:02:10 -0500
Subject: [PATCH 14/34] Fix unit test

---
 extra/io/unix/linux/monitors/monitors-tests.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/io/unix/linux/monitors/monitors-tests.factor b/extra/io/unix/linux/monitors/monitors-tests.factor
index 923bfaa890..c71b053919 100644
--- a/extra/io/unix/linux/monitors/monitors-tests.factor
+++ b/extra/io/unix/linux/monitors/monitors-tests.factor
@@ -15,7 +15,7 @@ threads calendar prettyprint destructors io.timeouts ;
 
     [ t ] [
         "m" get next-change drop
-        [ "." = ] [ "monitor-test-self" temp-file = ] bi or
+        [ "" = ] [ "monitor-test-self" temp-file = ] bi or
     ] unit-test
 
     [ ] [ "m" get dispose ] unit-test

From 3c9d01deb995d6df8e3c08a8346c188c2f76aecd Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 30 Jun 2008 10:00:06 -0500
Subject: [PATCH 15/34] builder: Remove old bake dependencies

---
 extra/builder/release/release.factor | 2 +-
 extra/builder/util/util.factor       | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/builder/release/release.factor b/extra/builder/release/release.factor
index 8f4c0e30f5..28ce3e8b35 100644
--- a/extra/builder/release/release.factor
+++ b/extra/builder/release/release.factor
@@ -1,7 +1,7 @@
 
 USING: kernel debugger system namespaces sequences splitting combinators
        io io.files io.launcher prettyprint bootstrap.image
-       bake combinators.cleave
+       combinators.cleave
        builder.util
        builder.common
        builder.release.branch
diff --git a/extra/builder/util/util.factor b/extra/builder/util/util.factor
index db3b476365..320f0e0448 100644
--- a/extra/builder/util/util.factor
+++ b/extra/builder/util/util.factor
@@ -6,7 +6,7 @@ USING: kernel words namespaces classes parser continuations
        combinators sequences splitting quotations arrays strings tools.time
        sequences.deep accessors assocs.lib
        io.encodings.utf8
-       combinators.cleave bake calendar calendar.format ;
+       combinators.cleave calendar calendar.format ;
 
 IN: builder.util
 

From 55ee2258a708b2be25545417e4dc81ec6c681464 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 30 Jun 2008 10:05:29 -0500
Subject: [PATCH 16/34] random-weighted: Use fry instead of bake

---
 extra/random-weighted/random-weighted.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/extra/random-weighted/random-weighted.factor b/extra/random-weighted/random-weighted.factor
index 59cc15cba6..3f7a5d09b5 100644
--- a/extra/random-weighted/random-weighted.factor
+++ b/extra/random-weighted/random-weighted.factor
@@ -1,6 +1,6 @@
 
 USING: kernel namespaces arrays quotations sequences assocs combinators
-       mirrors math math.vectors random macros bake ;
+       mirrors math math.vectors random macros fry ;
 
 IN: random-weighted
 
@@ -16,5 +16,5 @@ probabilities layers [ 1000 * ] map 1000 random [ > ] curry find drop ;
 dup [ second ] map swap [ first ] map random-weighted swap nth ;
 
 MACRO: call-random-weighted ( exp -- )
-  [ keys ] [ values <enum> >alist ] bi swap
-  [ , random-weighted , case ] bake ;
+  [ keys ] [ values <enum> >alist ] bi
+  '[ , random-weighted , case ] ;

From 8675e10cc0744428ac3a899f085921c054ea46e7 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 30 Jun 2008 10:09:49 -0500
Subject: [PATCH 17/34] springies.ui: Use fry instead of bake

---
 extra/springies/ui/ui.factor | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/extra/springies/ui/ui.factor b/extra/springies/ui/ui.factor
index bebe813925..8aabe6b70b 100644
--- a/extra/springies/ui/ui.factor
+++ b/extra/springies/ui/ui.factor
@@ -1,7 +1,7 @@
 
 USING: kernel namespaces threads sequences math math.vectors
        opengl.gl opengl colors ui ui.gadgets ui.gadgets.slate
-       bake rewrite-closures vars springies ;
+       fry rewrite-closures vars springies ;
 
 IN: springies.ui
 
@@ -62,5 +62,4 @@ DEFER: maybe-loop
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-: go* ( quot -- )
-  [ [ [ springies-window* 1000 sleep % ] with-scope ] with-ui ] bake call ;
+: go* ( quot -- ) '[ [ springies-window* 1000 sleep @ ] with-scope ] with-ui ;
\ No newline at end of file

From fa03e3147e9a61aa9f388e52f6738ab1352c4d2d Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 30 Jun 2008 10:12:07 -0500
Subject: [PATCH 18/34] springies.models.2x2snake: Doesn't need bake

---
 extra/springies/models/2x2snake/2x2snake.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/springies/models/2x2snake/2x2snake.factor b/extra/springies/models/2x2snake/2x2snake.factor
index 7c54e72578..6e794eb744 100644
--- a/extra/springies/models/2x2snake/2x2snake.factor
+++ b/extra/springies/models/2x2snake/2x2snake.factor
@@ -1,6 +1,6 @@
 
 USING: kernel namespaces arrays sequences threads math math.vectors
-       ui random bake springies springies.ui ;
+       ui random springies springies.ui ;
 
 IN: springies.models.2x2snake
 

From b1a37e17176f71d012b689b869f11b254d0fdc8a Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 30 Jun 2008 10:14:44 -0500
Subject: [PATCH 19/34] springies.models.3snake: Use fry instead of bake

---
 extra/springies/models/3snake/3snake.factor | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/extra/springies/models/3snake/3snake.factor b/extra/springies/models/3snake/3snake.factor
index 92d39ac2c2..e65c9c64a6 100644
--- a/extra/springies/models/3snake/3snake.factor
+++ b/extra/springies/models/3snake/3snake.factor
@@ -1,5 +1,5 @@
 
-USING: kernel namespaces arrays sequences threads math ui random bake
+USING: kernel namespaces arrays sequences threads math ui random fry
        springies springies.ui ;
 
 IN: springies.models.3snake
@@ -158,8 +158,10 @@ times
 
 ;
 
-: go* ( quot -- )
-  [ [ [ springies-window* 1000 sleep % ] with-scope ] with-ui ] bake call ;
+! : go* ( quot -- )
+!   [ [ [ springies-window* 1000 sleep % ] with-scope ] with-ui ] bake call ;
+
+: go* ( quot -- ) '[ [ springies-window* 1000 sleep @ ] with-scope ] with-ui ;
 
 ! : go ( -- ) [ [ springies-window* 1000 sleep model ] with-scope ] with-ui ;
 

From a8a49f4e761e0c12ba6f833e93a75b5187764309 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 30 Jun 2008 10:18:27 -0500
Subject: [PATCH 20/34] springies.models.belt-tire: Doesn't need bake

---
 extra/springies/models/belt-tire/belt-tire.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/springies/models/belt-tire/belt-tire.factor b/extra/springies/models/belt-tire/belt-tire.factor
index 6604f85a3f..e00a93b310 100644
--- a/extra/springies/models/belt-tire/belt-tire.factor
+++ b/extra/springies/models/belt-tire/belt-tire.factor
@@ -1,5 +1,5 @@
 
-USING: kernel namespaces arrays sequences threads math ui random bake
+USING: kernel namespaces arrays sequences threads math ui random
        springies springies.ui ;
 
 IN: springies.models.belt-tire

From 9e49c60ebceb41b300e2014e9afb44805bba37b9 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 30 Jun 2008 10:19:04 -0500
Subject: [PATCH 21/34] springies.models.nifty: Doesn't need bake

---
 extra/springies/models/nifty/nifty.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/springies/models/nifty/nifty.factor b/extra/springies/models/nifty/nifty.factor
index db644f2248..2b9a31b234 100644
--- a/extra/springies/models/nifty/nifty.factor
+++ b/extra/springies/models/nifty/nifty.factor
@@ -1,6 +1,6 @@
 
 USING: kernel namespaces arrays sequences threads math math.vectors
-       ui random bake springies springies.ui ;
+       ui random springies springies.ui ;
 
 IN: springies.models.nifty
 

From 568f91daca38b6b4078d4921bd85e818d1019dee Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 30 Jun 2008 10:20:20 -0500
Subject: [PATCH 22/34] springies.models.urchin: Doesn't need bake

---
 extra/springies/models/urchin/urchin.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/springies/models/urchin/urchin.factor b/extra/springies/models/urchin/urchin.factor
index 734a1c2f6d..8870c714e8 100644
--- a/extra/springies/models/urchin/urchin.factor
+++ b/extra/springies/models/urchin/urchin.factor
@@ -1,6 +1,6 @@
 
 USING: kernel namespaces arrays sequences threads math math.vectors
-       ui random bake
+       ui random
        springies springies.ui ;
 
 IN: springies.models.urchin

From 31d0e3c77bd360aa8e4915da297b94e8e697d6b3 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 30 Jun 2008 10:26:18 -0500
Subject: [PATCH 23/34] size-of: Use bake syntax

---
 extra/size-of/size-of.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/extra/size-of/size-of.factor b/extra/size-of/size-of.factor
index a2b47fc0aa..8157ba7dcf 100644
--- a/extra/size-of/size-of.factor
+++ b/extra/size-of/size-of.factor
@@ -12,15 +12,15 @@ IN: size-of
 VAR: headers
 
 : include-headers ( -- seq )
-  headers> [ { "#include <" , ">" } bake to-string ] map ;
+  headers> [ `{ "#include <" , ">" } to-string ] map ;
 
 : size-of-c-program ( type -- lines )
-  {
+  `{
     "#include <stdio.h>"
     include-headers
     { "main() { printf( \"%i\" , sizeof( " , " ) ) ; }" }
   }
-  bake to-strings ;
+  to-strings ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 

From c9ce48955a9f6c010975b1532c53b5d533646be1 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 30 Jun 2008 10:30:05 -0500
Subject: [PATCH 24/34] newfx: Few additions

---
 extra/newfx/newfx.factor | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/extra/newfx/newfx.factor b/extra/newfx/newfx.factor
index 37c738cd6a..b59e204e0c 100644
--- a/extra/newfx/newfx.factor
+++ b/extra/newfx/newfx.factor
@@ -195,4 +195,8 @@ METHOD: as-mutate { object object assoc }       set-at ;
 : adjoin      ( seq elt -- seq ) over sets:adjoin ;
 : adjoin-on   ( elt seq -- seq ) tuck sets:adjoin ;
 : adjoined    ( set elt --     ) swap sets:adjoin ;
-: adjoined-on ( elt set --     )      sets:adjoin ;
\ No newline at end of file
+: adjoined-on ( elt set --     )      sets:adjoin ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: start ( seq subseq -- i ) swap sequences:start ;
\ No newline at end of file

From 915b82a19d94cef5067f764a8f894047573d1e19 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 30 Jun 2008 10:30:52 -0500
Subject: [PATCH 25/34] raptor: Minor fix

---
 extra/raptor/raptor.factor | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/extra/raptor/raptor.factor b/extra/raptor/raptor.factor
index d58e242d86..933275e5bf 100755
--- a/extra/raptor/raptor.factor
+++ b/extra/raptor/raptor.factor
@@ -1,5 +1,6 @@
 
-USING: kernel parser namespaces threads arrays sequences unix unix.process bake ;
+USING: kernel parser namespaces threads arrays sequences unix unix.process
+       bake ;
 
 IN: raptor
 

From 6bf04eb1ee203bfe10f5056d3309a6670e956889 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 30 Jun 2008 10:31:12 -0500
Subject: [PATCH 26/34] bake: New oven: convention, broil, or simmer

---
 extra/bake/bake.factor | 86 ++++++++++++++++++++++--------------------
 1 file changed, 45 insertions(+), 41 deletions(-)

diff --git a/extra/bake/bake.factor b/extra/bake/bake.factor
index 987122f05c..da48cd2755 100644
--- a/extra/bake/bake.factor
+++ b/extra/bake/bake.factor
@@ -1,61 +1,65 @@
 
-USING: kernel parser namespaces quotations arrays vectors strings
-       sequences assocs classes.tuple math combinators ;
+USING: kernel parser combinators sequences splitting quotations arrays macros
+       arrays.lib combinators.cleave newfx dns.util ;
 
 IN: bake
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-TUPLE: insert-quot expr ;
-
-C: <insert-quot> insert-quot 
-
-: ,[ \ ] [ >quotation <insert-quot> ] parse-literal ; parsing
+MACRO: 1cond ( tbl -- )
+  [ [ 1st [ dup ] prepend ] [ 2nd ] bi {2} ] map
+  [ cond ] prefix-on ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-TUPLE: splice-quot expr ;
+SYMBOL: ,
+SYMBOL: @
 
-C: <splice-quot> splice-quot
-
-: %[ \ ] [ >quotation <splice-quot> ] parse-literal ; parsing
+: comma? ( obj -- ? ) , = ;
+: atsym? ( obj -- ? ) @ = ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-: ,u ( seq -- seq ) unclip building get push ;
+DEFER: [bake-array]
+
+: broil-element ( obj -- quot )
+    {
+      { [ comma? ] [ drop [ >r ]               ] }
+      { [ array? ] [ [bake-array] [ >r ] append ] }
+      { [ drop t ] [ [ >r ] prefix-on          ] }
+    }
+  1cond ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-SYMBOL: exemplar
-
-: reset-building ( -- ) 1024 <vector> building set ;
-
-: save-exemplar ( seq -- seq ) dup exemplar set ;
-
-: finish-baking ( -- seq ) building get exemplar get like ;
-
-DEFER: bake
-
-: bake-item ( item -- )
-  { { [ dup \ , = ]        [ drop , ] }
-    { [ dup \ % = ]        [ drop % ] }
-    { [ dup \ ,u = ]       [ drop ,u ] }
-    { [ dup insert-quot? ] [ insert-quot-expr call , ] }
-    { [ dup splice-quot? ] [ splice-quot-expr call % ] }
-    { [ dup integer? ]     [ , ] }
-    { [ dup string? ]      [ , ] }
-    { [ dup tuple? ]       [ tuple>array bake >tuple , ] }
-    { [ dup assoc? ]       [ [ >alist bake ] keep assoc-like , ] }
-    { [ dup sequence? ]    [ bake , ] }
-    { [ t ]                [ , ] } }
-  cond ;
-
-: bake-items ( seq -- ) [ bake-item ] each ;
-
-: bake ( seq -- seq )
-  [ reset-building save-exemplar bake-items finish-baking ] with-scope ;
+: [broil] ( array -- quot )
+    [ reverse [ broil-element ] map concat ]
+    [ length [ drop [ r> ] ] map concat ]
+    [ length [ narray ] prefix-on ]
+  tri append append
+  >quotation ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-: `{ \ } [ >array ] parse-literal \ bake parsed ; parsing
+: [simmer] ( array -- quot )
 
+  { @ } split reverse
+    [        [ [bake-array] [ append ] append [ >r ] append ] map concat ]
+    [ length [ drop [ r> append ]                          ] map concat ]
+  bi
+
+  >r 2 head* [ >r ] append r> ! remove the last append
+
+  [ { } ] swap append
+
+  append ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: [bake-array] ( array -- quot ) [ @ member? ] [ [simmer] ] [ [broil] ] 1if ;
+
+MACRO: bake-array ( array -- quot ) [bake-array] ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: `{ \ } [ >array ] parse-literal \ bake-array parsed ; parsing
\ No newline at end of file

From 46fc50af376e3106d1b09054188291bb63037868 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 30 Jun 2008 10:35:09 -0500
Subject: [PATCH 27/34] combinators.conditional: 1if and 1cond

---
 .../combinators/conditional/conditional.factor  | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 extra/combinators/conditional/conditional.factor

diff --git a/extra/combinators/conditional/conditional.factor b/extra/combinators/conditional/conditional.factor
new file mode 100644
index 0000000000..cb27ef3f55
--- /dev/null
+++ b/extra/combinators/conditional/conditional.factor
@@ -0,0 +1,17 @@
+
+USING: kernel combinators sequences macros fry newfx combinators.cleave ;
+
+IN: combinators.conditional
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+MACRO: 1if ( test then else -- ) '[ dup @ , , if ] ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+MACRO: 1cond ( tbl -- )
+  [ [ 1st [ dup ] prepend ] [ 2nd ] bi {2} ] map
+  [ cond ] prefix-on ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+

From 09fb8d878b5179435047f6501b0767a96cc68d70 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 30 Jun 2008 10:36:13 -0500
Subject: [PATCH 28/34] bake: use combinators.conditional

---
 extra/bake/bake.factor | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/extra/bake/bake.factor b/extra/bake/bake.factor
index da48cd2755..7a12a3cc97 100644
--- a/extra/bake/bake.factor
+++ b/extra/bake/bake.factor
@@ -1,17 +1,11 @@
 
 USING: kernel parser combinators sequences splitting quotations arrays macros
-       arrays.lib combinators.cleave newfx dns.util ;
+       arrays.lib combinators.cleave combinators.conditional newfx ;
 
 IN: bake
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-MACRO: 1cond ( tbl -- )
-  [ [ 1st [ dup ] prepend ] [ 2nd ] bi {2} ] map
-  [ cond ] prefix-on ;
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
 SYMBOL: ,
 SYMBOL: @
 

From ed243f21a5191103ea82705ad708405c78c97111 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 30 Jun 2008 12:09:05 -0500
Subject: [PATCH 29/34] rewrite-closures: use fry instead of make*

---
 extra/rewrite-closures/rewrite-closures.factor | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/extra/rewrite-closures/rewrite-closures.factor b/extra/rewrite-closures/rewrite-closures.factor
index ccd3989d1a..0136d5e271 100644
--- a/extra/rewrite-closures/rewrite-closures.factor
+++ b/extra/rewrite-closures/rewrite-closures.factor
@@ -14,8 +14,11 @@ IN: rewrite-closures
 
 \ set-parameters [ [set-parameters] ] 1 define-transform
 
-: parametric-quot ( parameters quot -- quot )
-[ [ swap ] set-parameters [ ] call ] make* ;
+! : parametric-quot ( parameters quot -- quot )
+! [ [ swap ] set-parameters [ ] call ] make* ;
+
+: parametric-quot ( parameters quot -- quot ) '[ , set-parameters , call ] ;
+
 
 : scoped-quot ( quot -- quot ) [ with-scope ] curry ;
 

From ba2c9fe837499d6292d10b077ec948d91eec46e7 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 30 Jun 2008 16:29:20 -0500
Subject: [PATCH 30/34] rewrite-closures: use fry instead of make*

---
 extra/rewrite-closures/rewrite-closures.factor | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/extra/rewrite-closures/rewrite-closures.factor b/extra/rewrite-closures/rewrite-closures.factor
index 0136d5e271..6e30a11cfc 100644
--- a/extra/rewrite-closures/rewrite-closures.factor
+++ b/extra/rewrite-closures/rewrite-closures.factor
@@ -1,6 +1,6 @@
 
 USING: kernel parser math quotations namespaces sequences namespaces.lib 
-       inference.transforms ;
+       inference.transforms fry ;
 
 IN: rewrite-closures
 
@@ -19,15 +19,17 @@ IN: rewrite-closures
 
 : parametric-quot ( parameters quot -- quot ) '[ , set-parameters , call ] ;
 
-
 : scoped-quot ( quot -- quot ) [ with-scope ] curry ;
 
+! : closed-quot ( quot -- quot )
+! [ namestack >r [ namestack ] set-namestack [ ] call r> set-namestack ] make* ;
+
 : closed-quot ( quot -- quot )
-[ namestack >r [ namestack ] set-namestack [ ] call r> set-namestack ] make* ;
+  namestack swap '[ namestack [ , set-namestack @ ] dip set-namestack ] ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-: lambda ( parameters quot -- ) parametric-quot scoped-quot closed-quot ;
+: lambda ( parameters quot -- quot ) parametric-quot scoped-quot closed-quot ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 

From 86a62c8e93f652e77a7d6f7dac8a9ce676d7ff12 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 30 Jun 2008 18:33:31 -0500
Subject: [PATCH 31/34] Better error message

---
 vm/image.c | 21 +++++++++++++++++----
 1 file changed, 17 insertions(+), 4 deletions(-)

diff --git a/vm/image.c b/vm/image.c
index 141594f01f..09ff035d7e 100755
--- a/vm/image.c
+++ b/vm/image.c
@@ -28,8 +28,14 @@ INLINE void load_data_heap(FILE *file, F_HEADER *h, F_PARAMETERS *p)
 
 	F_ZONE *tenured = &data_heap->generations[TENURED];
 
-	if(fread((void*)tenured->start,h->data_size,1,file) != 1)
+	long int bytes_read = fread((void*)tenured->start,1,h->data_size,file);
+
+	if(bytes_read != h->data_size)
+	{
+		fprintf(stderr,"truncated image: %ld bytes read, %ld bytes expected\n",
+			bytes_read,h->data_size);
 		fatal_error("load_data_heap failed",0);
+	}
 
 	tenured->here = tenured->start + h->data_size;
 	data_relocation_base = h->data_relocation_base;
@@ -44,9 +50,16 @@ INLINE void load_code_heap(FILE *file, F_HEADER *h, F_PARAMETERS *p)
 
 	init_code_heap(p->code_size);
 
-	if(h->code_size != 0
-		&& fread(first_block(&code_heap),h->code_size,1,file) != 1)
-		fatal_error("load_code_heap failed",0);
+	if(h->code_size != 0)
+	{
+		long int bytes_read = fread(first_block(&code_heap),1,h->code_size,file);
+		if(bytes_read != h->code_size)
+		{
+			fprintf(stderr,"truncated image: %ld bytes read, %ld bytes expected\n",
+				bytes_read,h->code_size);
+			fatal_error("load_code_heap failed",0);
+		}
+	}
 
 	code_relocation_base = h->code_relocation_base;
 	build_free_list(&code_heap,h->code_size);

From e9cd70619443308bf1693a8ff43f396388a2a56b Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 30 Jun 2008 19:16:33 -0500
Subject: [PATCH 32/34] Add sanity check to bootstrp.image.download

---
 extra/bootstrap/image/download/download.factor | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/extra/bootstrap/image/download/download.factor b/extra/bootstrap/image/download/download.factor
index 701a784ea4..71aa2e8adc 100644
--- a/extra/bootstrap/image/download/download.factor
+++ b/extra/bootstrap/image/download/download.factor
@@ -1,13 +1,13 @@
 ! Copyright (C) 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-IN: bootstrap.image.download
 USING: http.client checksums checksums.openssl splitting assocs
-kernel io.files bootstrap.image sequences io ;
+kernel io.files bootstrap.image sequences io urls ;
+IN: bootstrap.image.download
 
-: url "http://factorcode.org/images/latest/" ;
+: url URL" http://factorcode.org/images/latest/" ;
 
 : download-checksums ( -- alist )
-    url "checksums.txt" append http-get nip
+    url "checksums.txt" >url derive-url http-get nip
     string-lines [ " " split1 ] { } map>assoc ;
 
 : need-new-image? ( image -- ? )
@@ -21,7 +21,10 @@ kernel io.files bootstrap.image sequences io ;
 : download-image ( arch -- )
     boot-image-name dup need-new-image? [
         "Downloading " write dup write "..." print
-        url prepend download
+         url over >url derive-url download
+         need-new-image? [
+             "Boot image corrupt, or checksums.txt on server out of date" throw
+         ] when
     ] [
         "Boot image up to date" print
         drop

From d83e1103c1ad51ca74a11a6d38c8c6792a4df63b Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Tue, 1 Jul 2008 09:11:37 -0500
Subject: [PATCH 33/34] rewrite-closures: remove old code

---
 extra/rewrite-closures/rewrite-closures.factor | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/extra/rewrite-closures/rewrite-closures.factor b/extra/rewrite-closures/rewrite-closures.factor
index 6e30a11cfc..31b88eeaa4 100644
--- a/extra/rewrite-closures/rewrite-closures.factor
+++ b/extra/rewrite-closures/rewrite-closures.factor
@@ -14,16 +14,10 @@ IN: rewrite-closures
 
 \ set-parameters [ [set-parameters] ] 1 define-transform
 
-! : parametric-quot ( parameters quot -- quot )
-! [ [ swap ] set-parameters [ ] call ] make* ;
-
 : parametric-quot ( parameters quot -- quot ) '[ , set-parameters , call ] ;
 
 : scoped-quot ( quot -- quot ) [ with-scope ] curry ;
 
-! : closed-quot ( quot -- quot )
-! [ namestack >r [ namestack ] set-namestack [ ] call r> set-namestack ] make* ;
-
 : closed-quot ( quot -- quot )
   namestack swap '[ namestack [ , set-namestack @ ] dip set-namestack ] ;
 

From 765607bc9a63af61ea08455e3fb649fef3bebd35 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Tue, 1 Jul 2008 09:31:52 -0500
Subject: [PATCH 34/34] rewrite-closures: Minor improvements

---
 extra/rewrite-closures/rewrite-closures.factor | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

diff --git a/extra/rewrite-closures/rewrite-closures.factor b/extra/rewrite-closures/rewrite-closures.factor
index 31b88eeaa4..198e1744bc 100644
--- a/extra/rewrite-closures/rewrite-closures.factor
+++ b/extra/rewrite-closures/rewrite-closures.factor
@@ -1,22 +1,19 @@
 
-USING: kernel parser math quotations namespaces sequences namespaces.lib 
-       inference.transforms fry ;
+USING: kernel parser math quotations namespaces sequences macros fry ;
 
 IN: rewrite-closures
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-! : set-parameters ( seq -- ) reverse [ set ] each ;
+: [set-parameters] ( seq -- quot ) reverse [ [ set ] curry ] map concat ;
 
-: [set-parameters] ( seq -- quot ) [ [ set ] curry ] map concat ;
+MACRO: set-parameters ( seq -- quot ) [set-parameters] ;
 
-: set-parameters ( seq -- ) [set-parameters] call ;
-
-\ set-parameters [ [set-parameters] ] 1 define-transform
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 : parametric-quot ( parameters quot -- quot ) '[ , set-parameters , call ] ;
 
-: scoped-quot ( quot -- quot ) [ with-scope ] curry ;
+: scoped-quot ( quot -- quot ) '[ , with-scope ] ;
 
 : closed-quot ( quot -- quot )
   namestack swap '[ namestack [ , set-namestack @ ] dip set-namestack ] ;