Merge branch 'master' of factorcode.org:/git/factor

basis/editors/vim/vim.factor

@@ -16,7 +16,7 @@ M: vim vim-command
     ] { } make ;
 
 : vim ( file line -- )
-    vim-command run-detached drop ;
+    vim-command run-process drop ;
 
 "vim" vim-path set-global
 [ vim ] edit-hook set-global

extra/24-game/24-game.factor

@@ -8,6 +8,7 @@ arrays words quotations accessors math.parser backtrack assocs ;
 IN: 24-game
 SYMBOL: commands
 : nop ( -- ) ;
+: spin ( a b c -- c b a ) swapd swap swap ;
 : do-something ( a b -- c ) { + - * } amb-execute ;
 : maybe-swap ( a b -- a b ) { nop swap } amb-execute ;
 : some-rots ( a b c -- a b c )

extra/mason/child/child-tests.factor

@@ -1,26 +1,27 @@
 IN: mason.child.tests
-USING: mason.child mason.config tools.test namespaces io kernel sequences ;
+USING: mason.child mason.config tools.test namespaces io kernel
+sequences system ;
 
 [ { "nmake" "/f" "nmakefile" "x86-32" } ] [
     [
-        "winnt" target-os set
-        "x86.32" target-cpu set
+        winnt target-os set
+        x86.32 target-cpu set
         make-cmd
     ] with-scope
 ] unit-test
 
 [ { "make" "macosx-x86-32" } ] [
     [
-        "macosx" target-os set
-        "x86.32" target-cpu set
+        macosx target-os set
+        x86.32 target-cpu set
         make-cmd
     ] with-scope
 ] unit-test
 
 [ { "./factor.com" "-i=boot.winnt-x86.32.image" "-no-user-init" } ] [
     [
-        "winnt" target-os set
-        "x86.32" target-cpu set
+        winnt target-os set
+        x86.32 target-cpu set
         boot-cmd
     ] with-scope
 ] unit-test
@@ -43,4 +44,4 @@ USING: mason.child mason.config tools.test namespaces io kernel sequences ;
         { [ ] [ ] }
         [ "B" ]
     } recover-cond
-] unit-test
+] unit-test

extra/mason/child/child.factor

@@ -9,14 +9,14 @@ IN: mason.child
 
 : nmake-cmd ( -- args )
     { "nmake" "/f" "nmakefile" }
-    target-cpu get "." split "-" join suffix ;
+    target-cpu get name>> "." split "-" join suffix ;
 
 : gnu-make-cmd ( -- args )
     gnu-make platform 2array ;
 
 : make-cmd ( -- args )
     {
-        { [ target-os get "winnt" = ] [ nmake-cmd ] }
+        { [ target-os get winnt = ] [ nmake-cmd ] }
         [ gnu-make-cmd ]
     } cond ;
 
@@ -30,7 +30,7 @@ IN: mason.child
     ] with-directory ;
 
 : factor-vm ( -- string )
-    target-os get "winnt" = "./factor.com" "./factor" ? ;
+    target-os get winnt = "./factor.com" "./factor" ? ;
 
 : boot-cmd ( -- cmd )
     [
@@ -79,4 +79,4 @@ MACRO: recover-cond ( alist -- )
         { [ notify-boot boot ] [ boot-failed ] }
         { [ notify-test test ] [ test-failed ] }
         [ success ]
-    } recover-cond ;
+    } recover-cond ;

extra/mason/email/email-tests.factor

@@ -1,10 +1,11 @@
 IN: mason.email.tests
-USING: mason.email mason.common mason.config namespaces tools.test ;
+USING: mason.email mason.common mason.config namespaces
+tools.test system ;
 
 [ "mason on linux-x86-64: 12345 -- error" ] [
     [
-        "linux" target-os set
-        "x86.64" target-cpu set
+        linux target-os set
+        x86.64 target-cpu set
         "12345" current-git-id set
         status-error report-subject
     ] with-scope

extra/mason/platform/platform.factor

@@ -5,13 +5,14 @@ mason.config bootstrap.image assocs ;
 IN: mason.platform
 
 : (platform) ( os cpu -- string )
+    [ name>> ] bi@
     { { CHAR: . CHAR: - } } substitute "-" glue ;
 
 : platform ( -- string )
     target-os get target-cpu get (platform) ;
 
 : gnu-make ( -- string )
-    target-os get { "freebsd" "openbsd" "netbsd" } member? "gmake" "make" ? ;
+    target-os get { freebsd openbsd netbsd } member? "gmake" "make" ? ;
 
 : boot-image-arch ( -- string )
     target-os get target-cpu get arch ;

extra/mason/release/branch/branch-tests.factor

@@ -1,13 +1,14 @@
 IN: mason.release.branch.tests
-USING: mason.release.branch mason.config tools.test namespaces ;
+USING: mason.release.branch mason.config tools.test namespaces
+system ;
 
 [ { "git" "push" "-f" "joe@blah.com:/my/git" "master:clean-linux-x86-32" } ] [
     [
         "joe" branch-username set
         "blah.com" branch-host set
         "/my/git" branch-directory set
-        "linux" target-os set
-        "x86.32" target-cpu set
+        linux target-os set
+        x86.32 target-cpu set
         push-to-clean-branch-cmd
     ] with-scope
 ] unit-test
@@ -18,8 +19,8 @@ USING: mason.release.branch mason.config tools.test namespaces ;
         "joe" image-username set
         "blah.com" image-host set
         "/stuff/clean" image-directory set
-        "netbsd" target-os set
-        "x86.64" target-cpu set
+        netbsd target-os set
+        x86.64 target-cpu set
         upload-clean-image-cmd
     ] with-scope
 ] unit-test

extra/trees/avl/avl.factor

@@ -136,7 +136,7 @@ GENERIC: avl-delete ( key node -- node shorter? deleted? )
 M: f avl-delete ( key f -- f f f ) nip f f ;
 
 : (avl-delete) ( key node -- node shorter? deleted? )
-    tuck node-link avl-delete [
+    swap over node-link avl-delete [
         [ over set-node-link ] dip [ balance-delete ] [ f ] if
     ] dip ;
 

vm/Config.macosx

@@ -14,7 +14,7 @@ else
 	LIBS = -lm -framework Cocoa -framework AppKit
 endif
 
-LINKER = $(CPP) $(CFLAGS) -dynamiclib -single_module -std=gnu99 \
+LINKER = $(CPP) $(CFLAGS) -dynamiclib -single_module \
 	-current_version $(VERSION) \
 	-compatibility_version $(VERSION) \
 	-fvisibility=hidden \