factor: just some whitespace fixes i hope.
Doug Coleman
parent
e714d80140
commit
d07a0cc640
|
|
@ -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
|
||||
|
||||
|
|
|
|||
|
|
@ -282,7 +282,7 @@ ERROR: word-expects-name-effect-body payload ;
|
|||
[ first2 ensure-stack-effect ] [ 2 tail ] bi ;
|
||||
|
||||
: body>quotation ( body namespace -- quot )
|
||||
2drop [ ]
|
||||
2drop [ ]
|
||||
;
|
||||
|
||||
M:: word' definition>quotation ( namespace name definition -- quot )
|
||||
|
|
|
|||
|
|
@ -50,7 +50,7 @@ IN: bootstrap.syntax
|
|||
|
||||
: define-fry-specifiers ( names -- )
|
||||
[ define-dummy-fry ] map
|
||||
dup [ define-fry-specifier ] curry each ;
|
||||
dup [ define-fry-specifier ] curry each ;
|
||||
|
||||
[
|
||||
{ "]" "}" ";" ">>" "COMPILE>" } [ define-delimiter ] each
|
||||
|
|
|
|||
|
|
@ -14,7 +14,7 @@ FUNCTION: udev* udev_ref ( udev* udev ) ;
|
|||
|
||||
FUNCTION: void udev_unref ( udev* udev ) ;
|
||||
|
||||
FUNCTION: udev* udev_new ( ) ;
|
||||
FUNCTION: udev* udev_new ( ) ;
|
||||
|
||||
CALLBACK: void udev_set_log_fn_callback (
|
||||
udev* udev
|
||||
|
|
|
|||
|
|
@ -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* } ;
|
||||
|
||||
|
|
|
|||
|
|
@ -47,7 +47,7 @@ M: ---- <menu-item>
|
|||
<menu-items>
|
||||
{ 0 3 } >>gap
|
||||
margins
|
||||
menu-border-color <solid> >>boundary
|
||||
menu-border-color <solid> >>boundary
|
||||
menu-background <solid> >>interior ;
|
||||
|
||||
: <commands-menu> ( target hook commands -- menu )
|
||||
|
|
|
|||
|
|
@ -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 ;
|
||||
|
|
|
|||
|
|
@ -14,7 +14,7 @@ SYMBOLS:
|
|||
software-rendered
|
||||
backing-store
|
||||
multisampled
|
||||
supersampled
|
||||
supersampled
|
||||
sample-alpha
|
||||
color-float ;
|
||||
|
||||
|
|
|
|||
|
|
@ -70,7 +70,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 )
|
||||
|
|
|
|||
|
|
@ -40,7 +40,7 @@ slot: scroller
|
|||
: com-scroll-down ( tool -- )
|
||||
scroller>> scroll-down-line ;
|
||||
|
||||
: margins ( child -- border )
|
||||
: margins ( child -- border )
|
||||
{ 9 9 } <filled-border> ;
|
||||
|
||||
: with-lines ( track -- track )
|
||||
|
|
|
|||
|
|
@ -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 -- )
|
||||
|
|
|
|||
|
|
@ -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 ;
|
||||
|
|
|
|||
|
|
@ -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 ;
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue