factor: just some whitespace fixes i hope.

locals-and-roots
Doug Coleman 2016-06-21 10:42:06 -07:00
parent e714d80140
commit d07a0cc640
14 changed files with 14 additions and 14 deletions

View File

@ -106,7 +106,7 @@ M: cord vunordered? [ vunordered? ] [ call-next-method ] cord-2map ;
M: cord vany? [ vany? ] cord-both or ; inline M: cord vany? [ vany? ] cord-both or ; inline
M: cord vall? [ vall? ] cord-both and ; inline M: cord vall? [ vall? ] cord-both and ; inline
M: cord vnone? [ vnone? ] cord-both and ; inline M: cord vnone? [ vnone? ] cord-both and ; inline
M: cord vshuffle-elements M: cord vshuffle-elements
[ [ head>> ] [ tail>> ] bi ] [ split-shuffle ] bi* [ [ head>> ] [ tail>> ] bi ] [ split-shuffle ] bi*
[ vshuffle2-elements ] bi-curry@ 2bi cord-append ; inline [ vshuffle2-elements ] bi-curry@ 2bi cord-append ; inline

View File

@ -282,7 +282,7 @@ ERROR: word-expects-name-effect-body payload ;
[ first2 ensure-stack-effect ] [ 2 tail ] bi ; [ first2 ensure-stack-effect ] [ 2 tail ] bi ;
: body>quotation ( body namespace -- quot ) : body>quotation ( body namespace -- quot )
2drop [ ] 2drop [ ]
; ;
M:: word' definition>quotation ( namespace name definition -- quot ) M:: word' definition>quotation ( namespace name definition -- quot )

View File

@ -50,7 +50,7 @@ IN: bootstrap.syntax
: define-fry-specifiers ( names -- ) : define-fry-specifiers ( names -- )
[ define-dummy-fry ] map [ define-dummy-fry ] map
dup [ define-fry-specifier ] curry each ; dup [ define-fry-specifier ] curry each ;
[ [
{ "]" "}" ";" ">>" "COMPILE>" } [ define-delimiter ] each { "]" "}" ";" ">>" "COMPILE>" } [ define-delimiter ] each

View File

@ -14,7 +14,7 @@ FUNCTION: udev* udev_ref ( udev* udev ) ;
FUNCTION: void udev_unref ( udev* udev ) ; FUNCTION: void udev_unref ( udev* udev ) ;
FUNCTION: udev* udev_new ( ) ; FUNCTION: udev* udev_new ( ) ;
CALLBACK: void udev_set_log_fn_callback ( CALLBACK: void udev_set_log_fn_callback (
udev* udev udev* udev

View File

@ -16,7 +16,7 @@ STRUCT: CRYPT_BIT_BLOB
{ cUnusedBits DWORD } ; { cUnusedBits DWORD } ;
TYPEDEF: CRYPT_BIT_BLOB* PCRYPT_BIT_BLOB ; TYPEDEF: CRYPT_BIT_BLOB* PCRYPT_BIT_BLOB ;
STRUCT: CRYPTOAPI_BLOB STRUCT: CRYPTOAPI_BLOB
{ cbData DWORD } { cbData DWORD }
{ pbData BYTE* } ; { pbData BYTE* } ;

View File

@ -47,7 +47,7 @@ M: ---- <menu-item>
<menu-items> <menu-items>
{ 0 3 } >>gap { 0 3 } >>gap
margins margins
menu-border-color <solid> >>boundary menu-border-color <solid> >>boundary
menu-background <solid> >>interior ; menu-background <solid> >>interior ;
: <commands-menu> ( target hook commands -- menu ) : <commands-menu> ( target hook commands -- menu )

View File

@ -22,7 +22,7 @@ IN: ui.gadgets.status-bar
: open-status-window ( gadget title/attributes -- ) : open-status-window ( gadget title/attributes -- )
?attributes f <model> >>status <world> ?attributes f <model> >>status <world>
dup status>> <status-bar> dup status>> <status-bar>
{ 7 2 } <filled-border> status-bar-background <solid> >>interior { 7 2 } <filled-border> status-bar-background <solid> >>interior
f track-add f track-add
open-world-window ; open-world-window ;

View File

@ -14,7 +14,7 @@ SYMBOLS:
software-rendered software-rendered
backing-store backing-store
multisampled multisampled
supersampled supersampled
sample-alpha sample-alpha
color-float ; color-float ;

View File

@ -70,7 +70,7 @@ CONSTANT: next 1 ;
: add-help-header ( track -- track ) : add-help-header ( track -- track )
dup <help-header> { 3 3 } <border> dup <help-header> { 3 3 } <border>
help-header-background <solid> >>interior help-header-background <solid> >>interior
{ 1 0 } >>fill f track-add ; { 1 0 } >>fill f track-add ;
: <help-footer> ( browser-gadget direction -- gadget ) : <help-footer> ( browser-gadget direction -- gadget )

View File

@ -40,7 +40,7 @@ slot: scroller
: com-scroll-down ( tool -- ) : com-scroll-down ( tool -- )
scroller>> scroll-down-line ; scroller>> scroll-down-line ;
: margins ( child -- border ) : margins ( child -- border )
{ 9 9 } <filled-border> ; { 9 9 } <filled-border> ;
: with-lines ( track -- track ) : with-lines ( track -- track )

View File

@ -130,7 +130,7 @@ TUPLE: error-display < track ;
vertical error-display new-track with-lines vertical error-display new-track with-lines
swap error>> >>model swap error>> >>model
dup model>> [ [ print-error ] when* ] <pane-control> dup model>> [ [ print-error ] when* ] <pane-control>
margins <scroller> white-interior 1 track-add margins <scroller> white-interior 1 track-add
add-toolbar ; add-toolbar ;
: com-inspect ( error-display -- ) : com-inspect ( error-display -- )

View File

@ -4,7 +4,7 @@ USING: accessors sets snake-game.ui ui ui.gadgets.status-bar ui.gadgets.worlds ;
IN: snake-game IN: snake-game
: <snake-world-attributes> ( -- world-attributes ) : <snake-world-attributes> ( -- world-attributes )
<world-attributes> "Snake Game" >>title <world-attributes> "Snake Game" >>title
[ [
{ maximize-button resize-handles } without { maximize-button resize-handles } without
] change-window-controls ; ] change-window-controls ;

View File

@ -54,7 +54,7 @@ IN: snake-game.sprites
dup 1 { "body-right-up" "body-down-left" } assoc-with-value-like dup 1 { "body-right-up" "body-down-left" } assoc-with-value-like
dup 2 { "body-down-right" "body-left-up" } assoc-with-value-like dup 2 { "body-down-right" "body-left-up" } assoc-with-value-like
dup 3 { "body-right-right" "body-left-left" } assoc-with-value-like dup 3 { "body-right-right" "body-left-left" } assoc-with-value-like
dup 4 { "body-up-up" "body-down-down" } assoc-with-value-like dup 4 { "body-up-up" "body-down-down" } assoc-with-value-like
dup 5 { "body-up-right" "body-left-down" } assoc-with-value-like dup 5 { "body-up-right" "body-left-down" } assoc-with-value-like
dup 6 { "body-right-down" "body-up-left" } assoc-with-value-like dup 6 { "body-right-down" "body-up-left" } assoc-with-value-like
dup [ { 1 2 3 4 5 6 } ] dip [ delete-at ] curry each ; dup [ { 1 2 3 4 5 6 } ] dip [ delete-at ] curry each ;

View File

@ -1,7 +1,7 @@
! Copyright (C) 2004, 2009 Chris Double, Daniel Ehrenberg, ! Copyright (C) 2004, 2009 Chris Double, Daniel Ehrenberg,
! Slava Pestov. ! Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel xml.data xml.writer xml.syntax USING: accessors kernel xml.data xml.writer xml.syntax
urls.encoding ; urls.encoding ;
IN: html IN: html