! Copyright (C) 2007, 2008 Slava Pestov, Eduardo Cavazos.
! See http://factorcode.org/license.txt for BSD license.
-USING: accessors assocs kernel locals locals.types
-prettyprint.backend prettyprint.sections prettyprint.custom
-sequences words ;
+USING: accessors kernel locals locals.types prettyprint.backend
+prettyprint.custom prettyprint.sections sequences words ;
IN: locals.prettyprint
-SYMBOL: |
-
: pprint-var ( var -- )
#! Prettyprint a read/write local as its writer, just like
#! in the input syntax: [| x! | ... x 3 + x! ]
<flow
\ [| pprint-word
dup vars>> pprint-vars
- \ | pprint-word
+ "|" text
f <inset body>> pprint-elements block>
\ ] pprint-word
block> ;