prettyprint: change -> to => for newparser and -> cocoa syntax. Alternatives are possible.
parent
6b440e5e81
commit
f414323d1d
|
@ -54,9 +54,9 @@ IN: prettyprint
|
|||
|
||||
<PRIVATE
|
||||
|
||||
SYMBOL: ->
|
||||
SYMBOL: =>
|
||||
|
||||
\ ->
|
||||
\ =>
|
||||
{ { foreground COLOR: white } { background COLOR: black } }
|
||||
"word-style" set-word-prop
|
||||
|
||||
|
@ -76,7 +76,7 @@ SYMBOL: ->
|
|||
] [ ] make ;
|
||||
|
||||
: remove-breakpoints ( quot pos -- quot' )
|
||||
1 + short cut [ (remove-breakpoints) ] bi@ [ -> ] glue ;
|
||||
1 + short cut [ (remove-breakpoints) ] bi@ [ => ] glue ;
|
||||
|
||||
: optimized-frame? ( triple -- ? ) second word? ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue