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
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? ;