fix some problems
parent
dd38d6f6cf
commit
466f42e156
|
@ -109,6 +109,7 @@ However, most uses of <code>catch</code> can be replaced by <code>cleanup</code>
|
||||||
<li>Advanced math library with quaternions, matrices, polynomials, statistics and various
|
<li>Advanced math library with quaternions, matrices, polynomials, statistics and various
|
||||||
functions in <code>contrib/math/</code>. (Doug Coleman)</li>
|
functions in <code>contrib/math/</code>. (Doug Coleman)</li>
|
||||||
<li>Dimensioned units in <code>contrib/units/</code>. (Doug Coleman)</li>
|
<li>Dimensioned units in <code>contrib/units/</code>. (Doug Coleman)</li>
|
||||||
|
<li>X11 binding in <code>contrib/x11/</code> (Eduardo Cavazos)</li>
|
||||||
</ul>
|
</ul>
|
||||||
|
|
||||||
</li>
|
</li>
|
||||||
|
|
|
@ -24,7 +24,7 @@
|
||||||
! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||||
|
|
||||||
IN: html
|
IN: html
|
||||||
USING: prettyprint ;
|
USE: prettyprint
|
||||||
USE: strings
|
USE: strings
|
||||||
USE: lists
|
USE: lists
|
||||||
USE: kernel
|
USE: kernel
|
||||||
|
|
|
@ -346,12 +346,15 @@ M: wrapper pprint* ( wrapper -- )
|
||||||
: .o >oct print ;
|
: .o >oct print ;
|
||||||
: .h >hex print ;
|
: .h >hex print ;
|
||||||
|
|
||||||
|
: define-open t "pprint-open" set-word-prop ;
|
||||||
|
: define-close t "pprint-close" set-word-prop ;
|
||||||
|
|
||||||
{
|
{
|
||||||
POSTPONE: [ POSTPONE: [[
|
POSTPONE: [ POSTPONE: [[
|
||||||
POSTPONE: { POSTPONE: V{ POSTPONE: H{
|
POSTPONE: { POSTPONE: V{ POSTPONE: H{
|
||||||
POSTPONE: T{ POSTPONE: W{
|
POSTPONE: T{ POSTPONE: W{
|
||||||
} [ t "pprint-open" set-word-prop ] each
|
} [ define-open ] each
|
||||||
|
|
||||||
{
|
{
|
||||||
POSTPONE: ] POSTPONE: } POSTPONE: ]]
|
POSTPONE: ] POSTPONE: } POSTPONE: ]]
|
||||||
} [ t "pprint-close" set-word-prop ] each
|
} [ define-close ] each
|
||||||
|
|
|
@ -1,2 +1,2 @@
|
||||||
IN: kernel
|
IN: kernel
|
||||||
: version "0.79" ;
|
: version "0.80" ;
|
||||||
|
|
Loading…
Reference in New Issue