steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

modern: Found some more trailing whitespace.

modern-harvey2
Doug Coleman 2017-08-27 14:24:22 -05:00
parent 3fec06f36e
commit 4b61c0b776
9 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/html/html.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2004, 2009 Chris Double, Daniel Ehrenberg,
! Slava Pestov.
! 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 ;
IN: html

2
basis/sequences/cords/cords.factor
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 vall? [ vall? ] 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*
[ vshuffle2-elements ] bi-curry@ 2bi cord-append ; inline

2
basis/ui/gadgets/status-bar/status-bar.factor
View File

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

2
basis/ui/tools/browser/browser.factor
View File

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

2
basis/ui/tools/error-list/error-list.factor
View File

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

2
basis/windows/crypt32/crypt32.factor
View File

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

2
extra/modern/paths/paths.factor
View File

@ -152,7 +152,7 @@ CONSTANT: functor-vocabs {
: core-source-paths ( -- seq )
core-vocabs modern-source-paths reject-some-paths ;
: basis-source-paths ( -- seq )
: basis-source-paths ( -- seq )
basis-vocabs functor-vocabs diff
modern-source-paths reject-some-paths ;
: extra-source-paths ( -- seq )

2
extra/snake-game/snake-game.factor
View File

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

2
extra/snake-game/sprites/sprites.factor
View File

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