prettyprint: change -> to => for newparser and -> cocoa syntax. Alternatives are possible.

db4
Doug Coleman 2015-08-16 10:57:40 -07:00
parent 6b440e5e81
commit f414323d1d
1 changed files with 3 additions and 3 deletions

View File

@ -54,9 +54,9 @@ IN: prettyprint
<PRIVATE <PRIVATE
SYMBOL: -> SYMBOL: =>
\ -> \ =>
{ { foreground COLOR: white } { background COLOR: black } } { { foreground COLOR: white } { background COLOR: black } }
"word-style" set-word-prop "word-style" set-word-prop
@ -76,7 +76,7 @@ SYMBOL: ->
] [ ] make ; ] [ ] make ;
: remove-breakpoints ( quot pos -- quot' ) : remove-breakpoints ( quot pos -- quot' )
1 + short cut [ (remove-breakpoints) ] bi@ [ -> ] glue ; 1 + short cut [ (remove-breakpoints) ] bi@ [ => ] glue ;
: optimized-frame? ( triple -- ? ) second word? ; : optimized-frame? ( triple -- ? ) second word? ;