fix some problems

cvs
Slava Pestov 2005-11-07 00:14:35 +00:00
parent dd38d6f6cf
commit 466f42e156
4 changed files with 8 additions and 4 deletions

View File

@ -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
functions in <code>contrib/math/</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>
</li>

View File

@ -24,7 +24,7 @@
! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
IN: html
USING: prettyprint ;
USE: prettyprint
USE: strings
USE: lists
USE: kernel

View File

@ -346,12 +346,15 @@ M: wrapper pprint* ( wrapper -- )
: .o >oct print ;
: .h >hex print ;
: define-open t "pprint-open" set-word-prop ;
: define-close t "pprint-close" set-word-prop ;
{
POSTPONE: [ POSTPONE: [[
POSTPONE: { POSTPONE: V{ POSTPONE: H{
POSTPONE: T{ POSTPONE: W{
} [ t "pprint-open" set-word-prop ] each
} [ define-open ] each
{
POSTPONE: ] POSTPONE: } POSTPONE: ]]
} [ t "pprint-close" set-word-prop ] each
} [ define-close ] each

View File

@ -1,2 +1,2 @@
IN: kernel
: version "0.79" ;
: version "0.80" ;