diff --git a/unmaintained/4DNav/4DNav.factor b/unmaintained/4DNav/4DNav.factor index d0901c8d573..dd4ea1fcda5 100644 --- a/unmaintained/4DNav/4DNav.factor +++ b/unmaintained/4DNav/4DNav.factor @@ -148,10 +148,10 @@ VAR: present-space view4> relayout-1 ; : update-model-projections ( -- ) - 0 model-projection view1> (>>model) - 1 model-projection view2> (>>model) - 2 model-projection view3> (>>model) - 3 model-projection view4> (>>model) ; + 0 model-projection view1> model<< + 1 model-projection view2> model<< + 2 model-projection view3> model<< + 3 model-projection view4> model<< ; : camera-action ( quot -- quot ) '[ drop _ observer3d> diff --git a/unmaintained/4DNav/turtle/turtle.factor b/unmaintained/4DNav/turtle/turtle.factor index c964c816098..4f89964461f 100644 --- a/unmaintained/4DNav/turtle/turtle.factor +++ b/unmaintained/4DNav/turtle/turtle.factor @@ -32,10 +32,10 @@ TUPLE: observer < turtle projection-mode collision-mode ; : turtle-pos> ( -- val ) self> pos>> ; -: >turtle-pos ( val -- ) self> (>>pos) ; +: >turtle-pos ( val -- ) self> pos<< ; : turtle-ori> ( -- val ) self> ori>> ; -: >turtle-ori ( val -- ) self> (>>ori) ; +: >turtle-ori ( val -- ) self> ori<< ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! diff --git a/unmaintained/L-system/L-system.factor b/unmaintained/L-system/L-system.factor index 0dbf94b1c68..cc91042d213 100644 --- a/unmaintained/L-system/L-system.factor +++ b/unmaintained/L-system/L-system.factor @@ -263,7 +263,7 @@ TUPLE: < gadget ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -:: iterate-system ( GADGET -- ) GADGET pedestal>> 0.5 + GADGET (>>pedestal) ; +:: iterate-system ( GADGET -- ) GADGET pedestal>> 0.5 + GADGET pedestal<< ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! @@ -357,7 +357,7 @@ TUPLE: < gadget L-SYSTEM string>> L-SYSTEM axiom>> or L-SYSTEM rules>> iterate-string - L-SYSTEM (>>string) ; + L-SYSTEM string<< ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! @@ -422,7 +422,7 @@ M:: graft* ( L-SYSTEM -- ) L-SYSTEM find-gl-context - 1 glGenLists L-SYSTEM (>>display-list) ; + 1 glGenLists L-SYSTEM display-list<< ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! @@ -508,4 +508,4 @@ ARTICLE: "L-system" "L-system" { "q" "Roll left" } { "w" "Roll right" } } ; -ABOUT: "L-system" \ No newline at end of file +ABOUT: "L-system" diff --git a/unmaintained/alien/marshall/structs/structs.factor b/unmaintained/alien/marshall/structs/structs.factor index fff84e9c04d..3ca92633db6 100644 --- a/unmaintained/alien/marshall/structs/structs.factor +++ b/unmaintained/alien/marshall/structs/structs.factor @@ -16,7 +16,7 @@ IN: alien.marshall.structs define-struct-accessor ; : define-struct-setter ( class name word type -- ) - [ "(>>" prepend ")" append ] 2dip + [ "<<" append ] 2dip marshaller [ underlying>> ] \ bi* roll 4array >quotation define-struct-accessor ; diff --git a/unmaintained/bubble-chamber/bubble-chamber.factor b/unmaintained/bubble-chamber/bubble-chamber.factor index 713bb223e1f..914dd771872 100644 --- a/unmaintained/bubble-chamber/bubble-chamber.factor +++ b/unmaintained/bubble-chamber/bubble-chamber.factor @@ -473,7 +473,7 @@ M:: update-frame-buffer ( BUBBLE-CHAMBER -- ) v- first2 fatan2 - BUBBLE-CHAMBER (>>collision-theta) + BUBBLE-CHAMBER collision-theta<< BUBBLE-CHAMBER ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! diff --git a/unmaintained/dns/cache/rr/rr.factor b/unmaintained/dns/cache/rr/rr.factor index cb801904522..2103c033fea 100644 --- a/unmaintained/dns/cache/rr/rr.factor +++ b/unmaintained/dns/cache/rr/rr.factor @@ -59,7 +59,7 @@ TUPLE: time data ; { { [ ENT f = ] [ T{ f TIME V{ RDATA } } RR cache-set-at ] } { [ ENT expired? ] [ RR cache-delete RR cache-add ] } - { [ t ] [ TIME ENT (>>time) RDATA ENT data>> adjoin ] } + { [ t ] [ TIME ENT time<< RDATA ENT data>> adjoin ] } } cond - ] ; \ No newline at end of file + ] ; diff --git a/unmaintained/images/processing/rotation/rotation.factor b/unmaintained/images/processing/rotation/rotation.factor index 87cea5f2555..863fa2e3f13 100644 --- a/unmaintained/images/processing/rotation/rotation.factor +++ b/unmaintained/images/processing/rotation/rotation.factor @@ -46,7 +46,7 @@ ERROR: unsupported-rotation degrees ; : normalize-degree ( n -- n' ) 360 rem ; : processing-effect ( image quot -- image' ) - '[ image>pixel-rows @ flatten-table ] [ (>>bitmap) ] [ ] tri ; inline + '[ image>pixel-rows @ flatten-table ] [ bitmap<< ] [ ] tri ; inline :: rotate' ( image n -- image ) n normalize-degree :> n' diff --git a/unmaintained/irc-ui/ui.factor b/unmaintained/irc-ui/ui.factor index f360273fdab..2d99b56b13f 100644 --- a/unmaintained/irc-ui/ui.factor +++ b/unmaintained/irc-ui/ui.factor @@ -235,7 +235,7 @@ M: irc-tab pref-dim* { [ [ ] dip attach-chat ] [ chats>> +server-chat+ swap at dup - "Server" associate ui-window new-tabbed [ swap (>>window) ] keep ] + "Server" associate ui-window new-tabbed [ swap window<< ] keep ] [ >>client ] [ connect-irc ] } cleave ; diff --git a/unmaintained/models/combinators/combinators.factor b/unmaintained/models/combinators/combinators.factor index 48969106189..11e94ed3c68 100644 --- a/unmaintained/models/combinators/combinators.factor +++ b/unmaintained/models/combinators/combinators.factor @@ -46,7 +46,7 @@ M: fold-model model-activated drop ; TUPLE: updater-model < multi-model values updates ; M: updater-model (model-changed) [ tuck updates>> = [ [ values>> value>> ] keep set-model ] - [ drop ] if ] keep f swap (>>value) ; + [ drop ] if ] keep f swap value<< ; : updates ( values updates -- model ) [ 2array updater-model ] 2keep [ >>values ] [ >>updates ] bi* ; diff --git a/unmaintained/ori/ori.factor b/unmaintained/ori/ori.factor index b7c2458c6b0..0683c0c3eb2 100644 --- a/unmaintained/ori/ori.factor +++ b/unmaintained/ori/ori.factor @@ -13,7 +13,7 @@ C: ori : ori> ( -- val ) self> val>> ; -: >ori ( val -- ) self> (>>val) ; +: >ori ( val -- ) self> val<< ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! diff --git a/unmaintained/peg-lexer/peg-lexer.factor b/unmaintained/peg-lexer/peg-lexer.factor index b53280d860e..7449b92604e 100644 --- a/unmaintained/peg-lexer/peg-lexer.factor +++ b/unmaintained/peg-lexer/peg-lexer.factor @@ -14,10 +14,10 @@ CONSULT: assoc-protocol lex-hash hash>> ; v CHAR: \n n last-index -1 or 1 + - n [ CHAR: \n = ] count 1 + ] ; - + : store-pos ( v a -- ) input of prepare-pos - lexer get [ (>>line) ] keep (>>column) ; + lexer get [ line<< ] keep column<< ; M: lex-hash set-at swap { diff --git a/unmaintained/pong/pong.factor b/unmaintained/pong/pong.factor index 3f7626074a4..ed80b032600 100644 --- a/unmaintained/pong/pong.factor +++ b/unmaintained/pong/pong.factor @@ -145,7 +145,7 @@ M:: draw-gadget* ( PONG -- ) bounce-off-wall? [ ( -- ? ) BALL FIELD in-between-horizontally? not ] - stop-game [ ( -- ) t GADGET (>>paused) ] | + stop-game [ ( -- ) t GADGET paused<< ] | BALL FIELD in-bounds? [ @@ -173,7 +173,7 @@ M:: draw-gadget* ( PONG -- ) ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :: start-pong-thread ( GADGET -- ) - f GADGET (>>paused) + f GADGET paused<< [ [ GADGET paused>> @@ -191,4 +191,4 @@ M:: draw-gadget* ( PONG -- ) : pong-main ( -- ) [ pong-window ] with-ui ; -MAIN: pong-window \ No newline at end of file +MAIN: pong-window diff --git a/unmaintained/pos/pos.factor b/unmaintained/pos/pos.factor index 94c4eada016..b150c5bda1f 100644 --- a/unmaintained/pos/pos.factor +++ b/unmaintained/pos/pos.factor @@ -12,7 +12,7 @@ C: pos : pos> ( -- val ) self> val>> ; -: >pos ( val -- ) self> (>>val) ; +: >pos ( val -- ) self> val<< ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! diff --git a/unmaintained/ui/gadgets/controls/controls.factor b/unmaintained/ui/gadgets/controls/controls.factor index 5de6da87102..ebdb3bedc16 100644 --- a/unmaintained/ui/gadgets/controls/controls.factor +++ b/unmaintained/ui/gadgets/controls/controls.factor @@ -12,7 +12,7 @@ TUPLE: model-btn < button hook value ; : ( gadget -- button ) [ [ dup hook>> [ call( button -- ) ] [ drop ] if* ] [ [ [ value>> ] [ ] bi or ] keep set-control-value ] - [ model>> f swap (>>value) ] tri + [ model>> f swap value<< ] tri ] model-btn new-button f >>model ; : ( text -- button ) border-button-theme ; diff --git a/unmaintained/ui/gadgets/layout/layout.factor b/unmaintained/ui/gadgets/layout/layout.factor index bb35dccdd90..c187b01946d 100644 --- a/unmaintained/ui/gadgets/layout/layout.factor +++ b/unmaintained/ui/gadgets/layout/layout.factor @@ -73,7 +73,7 @@ M: track (add-gadget-at) -rot >layout [ add-layout ] keep [ gadget>> insert-gadg GENERIC# add-gadget-at 1 ( item location -- ) M: object add-gadget-at insertion-point -rot (add-gadget-at) ; M: model add-gadget-at parent>> dup book:book? [ "No models in books" throw ] - [ dup model>> dup collection? [ nip swap add-connection ] [ drop [ 1array ] dip (>>model) ] if ] if ; + [ dup model>> dup collection? [ nip swap add-connection ] [ drop [ 1array ] dip model<< ] if ] if ; : track-add-at ( item location size -- ) swap [ ] dip add-gadget-at ; : (track-add-at) ( parent item n size -- ) swap [ ] dip (add-gadget-at) ;