style thing: indenting tuple slots

diff --git a/basis/alien/c-types/c-types.factor b/basis/alien/c-types/c-types.factor
index 18865cee4ba1b8706f904c84c614ba751e73b365..ba7fc0e0298aaaffb92e7505b088572224f1ea64 100644 (file)
--- a/basis/alien/c-types/c-types.factor
+++ b/basis/alien/c-types/c-types.factor
@@ -18,21 +18,21 @@ SYMBOLS:
 SINGLETON: void
 
 TUPLE: abstract-c-type
-{ class class initial: object }
-{ boxed-class class initial: object }
-{ boxer-quot callable }
-{ unboxer-quot callable }
-{ getter callable }
-{ setter callable }
-{ size integer }
-{ signed boolean }
-{ align integer }
-{ align-first integer } ;
+    { class class initial: object }
+    { boxed-class class initial: object }
+    { boxer-quot callable }
+    { unboxer-quot callable }
+    { getter callable }
+    { setter callable }
+    { size integer }
+    { signed boolean }
+    { align integer }
+    { align-first integer } ;
 
 TUPLE: c-type < abstract-c-type
-boxer
-unboxer
-{ rep initial: int-rep } ;
+    boxer
+    unboxer
+    { rep initial: int-rep } ;
 
 : <c-type> ( -- c-type )
     \ c-type new ; inline

diff --git a/basis/threads/threads.factor b/basis/threads/threads.factor
index af9ca5c1ed7ac44c05a974058fa861cb8c8dfef5..586c2cf220241ee4140333ce8a4556127f353a55 100644 (file)
--- a/basis/threads/threads.factor
+++ b/basis/threads/threads.factor
@@ -51,16 +51,16 @@ PRIVATE>
 SYMBOL: initial-thread
 
 TUPLE: thread
-{ name string }
-{ quot callable initial: [ ] }
-{ exit-handler callable initial: [ ] }
-{ id integer }
-{ context box }
-state
-runnable
-mailbox
-{ variables hashtable }
-sleep-entry ;
+    { name string }
+    { quot callable initial: [ ] }
+    { exit-handler callable initial: [ ] }
+    { id integer }
+    { context box }
+    state
+    runnable
+    mailbox
+    { variables hashtable }
+    sleep-entry ;
 
 : self ( -- thread )
     OBJ-CURRENT-THREAD special-object { thread } declare ; inline

diff --git a/basis/ui/gestures/gestures.factor b/basis/ui/gestures/gestures.factor
index dfe6cf9c970ea0c7d2801de68857d94d1a132e79..82cf068164f7f813ded0f99acdb95fcf590df5e2 100644 (file)
--- a/basis/ui/gestures/gestures.factor
+++ b/basis/ui/gestures/gestures.factor
@@ -82,20 +82,20 @@ TUPLE: button-up mods # ;   C: <button-up> button-up
 TUPLE: button-down mods # ; C: <button-down> button-down
 
 SINGLETONS:
-motion
-mouse-scroll
-mouse-enter mouse-leave
-lose-focus gain-focus ;
+    motion
+    mouse-scroll
+    mouse-enter mouse-leave
+    lose-focus gain-focus ;
 
 ! Higher-level actions
 SINGLETONS:
-undo-action redo-action
-cut-action copy-action paste-action
-delete-action select-all-action
-left-action right-action up-action down-action
-zoom-in-action zoom-out-action
-new-action open-action save-action save-as-action
-revert-action close-action ;
+    undo-action redo-action
+    cut-action copy-action paste-action
+    delete-action select-all-action
+    left-action right-action up-action down-action
+    zoom-in-action zoom-out-action
+    new-action open-action save-action save-as-action
+    revert-action close-action ;
 
 UNION: action
 undo-action redo-action

diff --git a/core/hash-sets/hash-sets.factor b/core/hash-sets/hash-sets.factor
index 73006ba7eca6a131e4eb3a2838c00daeb39306be..9e99dc6a1a99c041624d6fe27d57719acfa54dac 100644 (file)
--- a/core/hash-sets/hash-sets.factor
+++ b/core/hash-sets/hash-sets.factor
@@ -8,9 +8,9 @@ vectors ;
 IN: hash-sets
 
 TUPLE: hash-set
-{ count array-capacity }
-{ deleted array-capacity }
-{ array array } ;
+    { count array-capacity }
+    { deleted array-capacity }
+    { array array } ;
 
 <PRIVATE
 

diff --git a/core/hashtables/hashtables.factor b/core/hashtables/hashtables.factor
index 24d25e49d00b560ad5e355f817827977e8382af6..d7763428d7c8db2a9eb8bdd31e56879e0dc79680 100644 (file)
--- a/core/hashtables/hashtables.factor
+++ b/core/hashtables/hashtables.factor
@@ -5,9 +5,9 @@ math.private sequences sequences.private slots.private vectors ;
 IN: hashtables
 
 TUPLE: hashtable
-{ count array-capacity }
-{ deleted array-capacity }
-{ array array } ;
+    { count array-capacity }
+    { deleted array-capacity }
+    { array array } ;
 
 <PRIVATE