locals.prettyprint: remove "|" as a symbol.
parent
e9dbb7cf22
commit
ec7afb3ea6
|
@ -1,12 +1,9 @@
|
||||||
! Copyright (C) 2007, 2008 Slava Pestov, Eduardo Cavazos.
|
! Copyright (C) 2007, 2008 Slava Pestov, Eduardo Cavazos.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: accessors assocs kernel locals locals.types
|
USING: accessors kernel locals locals.types prettyprint.backend
|
||||||
prettyprint.backend prettyprint.sections prettyprint.custom
|
prettyprint.custom prettyprint.sections sequences words ;
|
||||||
sequences words ;
|
|
||||||
IN: locals.prettyprint
|
IN: locals.prettyprint
|
||||||
|
|
||||||
SYMBOL: |
|
|
||||||
|
|
||||||
: pprint-var ( var -- )
|
: pprint-var ( var -- )
|
||||||
#! Prettyprint a read/write local as its writer, just like
|
#! Prettyprint a read/write local as its writer, just like
|
||||||
#! in the input syntax: [| x! | ... x 3 + x! ]
|
#! in the input syntax: [| x! | ... x 3 + x! ]
|
||||||
|
@ -20,7 +17,7 @@ M: lambda pprint*
|
||||||
<flow
|
<flow
|
||||||
\ [| pprint-word
|
\ [| pprint-word
|
||||||
dup vars>> pprint-vars
|
dup vars>> pprint-vars
|
||||||
\ | pprint-word
|
"|" text
|
||||||
f <inset body>> pprint-elements block>
|
f <inset body>> pprint-elements block>
|
||||||
\ ] pprint-word
|
\ ] pprint-word
|
||||||
block> ;
|
block> ;
|
||||||
|
|
Loading…
Reference in New Issue