From 4b61c0b776d366d377482f0e6dce7a5e595ec911 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 27 Aug 2017 14:24:22 -0500 Subject: [PATCH] modern: Found some more trailing whitespace. --- basis/html/html.factor | 2 +- basis/sequences/cords/cords.factor | 2 +- basis/ui/gadgets/status-bar/status-bar.factor | 2 +- basis/ui/tools/browser/browser.factor | 2 +- basis/ui/tools/error-list/error-list.factor | 2 +- basis/windows/crypt32/crypt32.factor | 2 +- extra/modern/paths/paths.factor | 2 +- extra/snake-game/snake-game.factor | 2 +- extra/snake-game/sprites/sprites.factor | 2 +- 9 files changed, 9 insertions(+), 9 deletions(-) diff --git a/basis/html/html.factor b/basis/html/html.factor index 7016e3b8d9..f10dc8f25a 100644 --- a/basis/html/html.factor +++ b/basis/html/html.factor @@ -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 diff --git a/basis/sequences/cords/cords.factor b/basis/sequences/cords/cords.factor index 74b513261f..54da935611 100644 --- a/basis/sequences/cords/cords.factor +++ b/basis/sequences/cords/cords.factor @@ -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 diff --git a/basis/ui/gadgets/status-bar/status-bar.factor b/basis/ui/gadgets/status-bar/status-bar.factor index 73b763c59f..48a13c05ff 100644 --- a/basis/ui/gadgets/status-bar/status-bar.factor +++ b/basis/ui/gadgets/status-bar/status-bar.factor @@ -22,7 +22,7 @@ IN: ui.gadgets.status-bar : open-status-window ( gadget title/attributes -- ) ?attributes f >>status - dup status>> + dup status>> { 7 2 } status-bar-background >>interior f track-add open-world-window ; diff --git a/basis/ui/tools/browser/browser.factor b/basis/ui/tools/browser/browser.factor index f4e556af56..1f15dc76df 100644 --- a/basis/ui/tools/browser/browser.factor +++ b/basis/ui/tools/browser/browser.factor @@ -68,7 +68,7 @@ CONSTANT: next 1 : add-help-header ( track -- track ) dup { 3 3 } - help-header-background >>interior + help-header-background >>interior { 1 0 } >>fill f track-add ; : ( browser-gadget direction -- gadget ) diff --git a/basis/ui/tools/error-list/error-list.factor b/basis/ui/tools/error-list/error-list.factor index e20d64c107..d553af3b62 100644 --- a/basis/ui/tools/error-list/error-list.factor +++ b/basis/ui/tools/error-list/error-list.factor @@ -130,7 +130,7 @@ TUPLE: error-display < track ; vertical error-display new-track with-lines swap error>> >>model dup model>> [ [ print-error ] when* ] - margins white-interior 1 track-add + margins white-interior 1 track-add add-toolbar ; : com-inspect ( error-display -- ) diff --git a/basis/windows/crypt32/crypt32.factor b/basis/windows/crypt32/crypt32.factor index a588c78144..61e46c474f 100644 --- a/basis/windows/crypt32/crypt32.factor +++ b/basis/windows/crypt32/crypt32.factor @@ -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* } ; diff --git a/extra/modern/paths/paths.factor b/extra/modern/paths/paths.factor index 86a9c265c7..161e2888c3 100644 --- a/extra/modern/paths/paths.factor +++ b/extra/modern/paths/paths.factor @@ -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 ) diff --git a/extra/snake-game/snake-game.factor b/extra/snake-game/snake-game.factor index 39fca95b6e..17b469e9af 100644 --- a/extra/snake-game/snake-game.factor +++ b/extra/snake-game/snake-game.factor @@ -4,7 +4,7 @@ USING: accessors sets snake-game.ui ui ui.gadgets.status-bar ui.gadgets.worlds ; IN: snake-game : ( -- world-attributes ) - "Snake Game" >>title + "Snake Game" >>title [ { maximize-button resize-handles } without ] change-window-controls ; diff --git a/extra/snake-game/sprites/sprites.factor b/extra/snake-game/sprites/sprites.factor index 8b95f42689..641f111d94 100644 --- a/extra/snake-game/sprites/sprites.factor +++ b/extra/snake-game/sprites/sprites.factor @@ -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 ;