factor: just some whitespace fixes i hope.
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 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
|
||||||
|
|
||||||
|
|
|
@ -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 )
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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* } ;
|
||||||
|
|
||||||
|
|
|
@ -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 )
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
||||||
|
|
|
@ -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 )
|
||||||
|
|
|
@ -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 )
|
||||||
|
|
|
@ -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 -- )
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
|
@ -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
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue