factor: whitespace only

diff --git a/basis/editors/acme/acme.factor b/basis/editors/acme/acme.factor
index 21ed29e130a38e08c636cb33ba5f3b6d948874d4..8a7f07bb56190f59378598ba8cc9f018ecd3d93a 100644 (file)
--- a/basis/editors/acme/acme.factor
+++ b/basis/editors/acme/acme.factor
@@ -22,7 +22,7 @@ SINGLETON: acme
   "plumb" plan9-tool-path ;
 
 : (massage-pathname) ( file line -- str )
- over file-info regular-file?
+  over file-info regular-file?
   [ number>string 2array ":" join ]
   [ drop ] if ;
 

diff --git a/basis/game/input/xinput/xinput.factor b/basis/game/input/xinput/xinput.factor
index 879e490626aa5081cc71a0164708418c70b0776b..8150abadde84a9d98e52c1d9d41e3e078dba171b 100644 (file)
--- a/basis/game/input/xinput/xinput.factor
+++ b/basis/game/input/xinput/xinput.factor
@@ -33,7 +33,7 @@ MACRO: map-index-compose ( seq quot -- quot' )
       [ [ bitand ] dip swap 0 = [ 2drop ] [ [ 1.0 ] 2dip swap set-nth ] if ]
       map-index-compose 2cleave ;
 
- : >pov ( byte -- symbol )
+: >pov ( byte -- symbol )
     {
          pov-neutral
          pov-up

diff --git a/basis/xmode/marker/state/state.factor b/basis/xmode/marker/state/state.factor
index 1bf2744681f5a417bafeefe9df9bfd2e3c9904a3..c649daa7ebe29d1a8005d80faf1374b5441e5880 100644 (file)
--- a/basis/xmode/marker/state/state.factor
+++ b/basis/xmode/marker/state/state.factor
@@ -7,8 +7,8 @@ IN: xmode.marker.state
 ! Based on org.gjt.sp.jedit.syntax.TokenMarker
 
 SYMBOLS: line last-offset position context
- whitespace-end seen-whitespace-end?
- escaped?  process-escape?  delegate-end-escaped? ;
+whitespace-end seen-whitespace-end?
+escaped?  process-escape?  delegate-end-escaped? ;
 
 : current-rule ( -- rule )
     context get in-rule>> ;

diff --git a/core/graphs/graphs.factor b/core/graphs/graphs.factor
index 775acdaba0e83f2173bfa51d773ad782d21ab19c..8a9e74d8596a7448e05bbfababd67b6331c0d016 100644 (file)
--- a/core/graphs/graphs.factor
+++ b/core/graphs/graphs.factor
@@ -18,12 +18,12 @@ PRIVATE>
 
 <PRIVATE
 
- : (closure) ( vertex set quot: ( vertex -- edges ) -- )
+: (closure) ( vertex set quot: ( vertex -- edges ) -- )
     2over ?adjoin [
         [ dip ] keep [ (closure) ] 2curry each
     ] [ 3drop ] if ; inline recursive
 
- : new-empty-set-like ( exemplar -- set )
+: new-empty-set-like ( exemplar -- set )
     f swap set-like clone ; inline
 
 PRIVATE>

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 7759cf3bac706e0497a7f4b9812ed3782f6a9074..028ef4f7f94956de0a9281af732a0f616a043444 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -180,7 +180,7 @@ PRIVATE>
 : first4 ( seq -- first second third fourth )
     3 swap bounds-check nip first4-unsafe ; inline
 
- : ?nth ( n seq -- elt/f )
+: ?nth ( n seq -- elt/f )
     2dup bounds-check? [ nth-unsafe ] [ 2drop f ] if ; inline
 
 : ?set-nth ( elt n seq -- )

diff --git a/extra/cairo-samples/cairo-samples.factor b/extra/cairo-samples/cairo-samples.factor
index 8614eede21ad07f8e8682f0ec105f88fb1db2d7d..b8ef60cef35c1c4499ef5b2777c7134f762886d4 100644 (file)
--- a/extra/cairo-samples/cairo-samples.factor
+++ b/extra/cairo-samples/cairo-samples.factor
@@ -146,8 +146,8 @@ M: utf8-gadget render-cairo* ( gadget -- )
     cr 256 0 cairo_rel_line_to
     cr cairo_stroke ;
 
- USING: quotations ui.gadgets.panes sequences ;
- : samples ( -- )
+USING: quotations ui.gadgets.panes sequences ;
+: samples ( -- )
     {
         arc-gadget clip-gadget clip-image-gadget dash-gadget
         gradient-gadget text-gadget utf8-gadget

diff --git a/extra/combinators/extras/extras.factor b/extra/combinators/extras/extras.factor
index eb69949e2d96c4b05c6ceb72470768ea7f7ac454..e0b81ccefabb91692a69cfb0de56604e90070793 100644 (file)
--- a/extra/combinators/extras/extras.factor
+++ b/extra/combinators/extras/extras.factor
@@ -189,7 +189,7 @@ MACRO: 4keep-under ( quot -- quot' )
 : 1temp2d ( quot: ( a b c -- d e f ) -- quot ) '[ rot @ -rot ] ; inline
 : 2temp2d ( quot: ( a b c d -- e f g h ) -- quot ) '[ 2 4 0 nrotated @ 2 4 0 -nrotated ] ; inline
 
- : (closure-limit) ( vertex set quot: ( vertex -- edges ) i n -- )
+: (closure-limit) ( vertex set quot: ( vertex -- edges ) i n -- )
     2dup < [
         [ 1 + ] dip
         2reach ?adjoin [

diff --git a/extra/gamelib/demos/multiple-board-demo/multiple-board-demo.factor b/extra/gamelib/demos/multiple-board-demo/multiple-board-demo.factor
index 798b5d6f91d7ef5d510521f764a2d665cf7e2185..28c00e8522f208c35eeab01b2aff5054c42c0a99 100644 (file)
--- a/extra/gamelib/demos/multiple-board-demo/multiple-board-demo.factor
+++ b/extra/gamelib/demos/multiple-board-demo/multiple-board-demo.factor
@@ -26,7 +26,7 @@ IN: multiple-board-demo
     { 500 400 } init-board-gadget
     board-init add-board ;
 
- :: display-window ( -- )
+:: display-window ( -- )
     first-gadget :> g1
     second-gadget :> g2
     { g1 g2 } horizontal 0 f <window> ! initalize two boards   

diff --git a/extra/gemini/cli/cli.factor b/extra/gemini/cli/cli.factor
index 9b64c1d766a556570024935d19ae4c0afce3f41b..798e63302778828b38d87d15d4424a473bf06a8e 100644 (file)
--- a/extra/gemini/cli/cli.factor
+++ b/extra/gemini/cli/cli.factor
@@ -132,7 +132,7 @@ CONSTANT: URL V{ }
         ] with-file-reader
     ] [ drop ] if ;
 
- : gemini-ls ( args -- )
+: gemini-ls ( args -- )
     [ PAGE ] [ "-l" = ] bi* print-links ;
 
 : gemini-quit ( -- )

diff --git a/extra/glfw/ffi/ffi.factor b/extra/glfw/ffi/ffi.factor
index 5e0f5a65f28e75a1235b132fe432f1cc99e797a6..7fa0277e1d9e78dbf1041af8ab5c74fb82ddf07a 100644 (file)
--- a/extra/glfw/ffi/ffi.factor
+++ b/extra/glfw/ffi/ffi.factor
@@ -1,16 +1,16 @@
 USING: alien alien.c-types alien.libraries alien.syntax combinators system ;
 
- IN: glfw.ffi
+IN: glfw.ffi
 
- <<
- "glfw" {
-     { [ os windows? ] [ "glfw.dll" ] }
-     { [ os macosx? ] [ "glfw.dylib" ] }
-     { [ os unix? ] [ "libglfw.so" ] }
- } cond cdecl add-library
- >>
+<<
+"glfw" {
+    { [ os windows? ] [ "glfw.dll" ] }
+    { [ os macosx? ] [ "glfw.dylib" ] }
+    { [ os unix? ] [ "libglfw.so" ] }
+} cond cdecl add-library
+>>
 
- LIBRARY: glfw
+LIBRARY: glfw
 
- FUNCTION: void* glfwGetCurrentContext (  )
- FUNCTION: void glfwMakeContextCurrent ( void* window )
+FUNCTION: void* glfwGetCurrentContext (  )
+FUNCTION: void glfwMakeContextCurrent ( void* window )

diff --git a/extra/gopher/cli/cli.factor b/extra/gopher/cli/cli.factor
index 6b10f7e9fd8be93690c641ce7e21df87c1ec213e..c591c4466590113b9f9f470da5eb2844dd5f8478 100644 (file)
--- a/extra/gopher/cli/cli.factor
+++ b/extra/gopher/cli/cli.factor
@@ -130,7 +130,7 @@ CONSTANT: URL V{ }
         ] with-file-reader
     ] [ drop ] if ;
 
- : gopher-ls ( args -- )
+: gopher-ls ( args -- )
     [ PAGE ] [ "-l" = ] bi* print-links ;
 
 : gopher-quit ( -- )

diff --git a/extra/modern/paths/paths.factor b/extra/modern/paths/paths.factor
index e03f62d5a397e2e98bb19ff2ca45ea60b274dc3c..313a55848defc54feb546b3c9472acbffd63cadb 100644 (file)
--- a/extra/modern/paths/paths.factor
+++ b/extra/modern/paths/paths.factor
@@ -88,7 +88,7 @@ CONSTANT: core-broken-vocabs
 
 
 : all-docs-paths ( -- seq ) all-vocabs modern-docs-paths ;
- : all-tests-paths ( -- seq ) all-vocabs modern-tests-paths ;
+: all-tests-paths ( -- seq ) all-vocabs modern-tests-paths ;
 
 : all-paths ( -- seq )
     [

diff --git a/extra/rosetta-code/hofstadter-q/hofstadter-q.factor b/extra/rosetta-code/hofstadter-q/hofstadter-q.factor
index 30c5af85ef756ea45f46e8f96aa0dd12303d7e88..09bdf7c9fdceda978e7e78f698caaf7100f2852a 100644 (file)
--- a/extra/rosetta-code/hofstadter-q/hofstadter-q.factor
+++ b/extra/rosetta-code/hofstadter-q/hofstadter-q.factor
@@ -34,7 +34,7 @@ IN: rosetta-code.hofstadter-q
 ! (This point is to ensure that caching and/or recursion limits,
 ! if it is a concern, is correctly handled).
 
- : next ( seq -- newseq )
+: next ( seq -- newseq )
     dup 2 tail* over length [ swap - ] curry map
     [ dupd swap nth ] map 0 [ + ] reduce suffix ;
 

diff --git a/misc/fuel/strange-syntax.factor b/misc/fuel/strange-syntax.factor
index ee05308e74350298beee33aed9248b4e80945561..51b92a732200c984879fa28ee270552a5d6afd65 100644 (file)
--- a/misc/fuel/strange-syntax.factor
+++ b/misc/fuel/strange-syntax.factor
@@ -65,7 +65,7 @@ C-TYPE: cairo_snurface_t
 MAIN: majn
 
 ! ! SLOT
- SLOT: komba
+SLOT: komba
 
 ! ! SYNTAX
 <<