src/libpp.ss => src/ikarus.pretty-print.ss
This commit is contained in:
Abdulaziz Ghuloum 2007-05-05 22:07:50 -04:00
parent 20e7940059
commit 7931512241
3 changed files with 4 additions and 7 deletions

Binary file not shown.

View File

@ -1,7 +1,7 @@
(library (ikarus pretty-print)
(export)
(import (scheme))
(export pretty-print)
(import (except (ikarus) pretty-print))
(define (map1ltr f ls)
;;; ltr so that gensym counts get assigned properly
(cond
@ -501,7 +501,7 @@
(define *pretty-format* '*pretty-format*)
(define (set-fmt! name fmt)
(putprop name *pretty-format* fmt))
(primitive-set! 'pretty-print
(define pretty-print
(case-lambda
[(x) (pretty x (current-output-port))]
[(x p)

View File

@ -38,9 +38,7 @@
"ikarus.vectors.ss"
"ikarus.numerics.ss"
"ikarus.guardians.ss"
"ikarus.command-line.ss"
"ikarus.core.ss"
"ikarus.io-ports.ss"
"ikarus.io-primitives.unsafe.ss"
@ -52,13 +50,12 @@
"ikarus.writer.ss"
"ikarus.reader.ss"
"ikarus.code-objects.ss"
"ikarus.trace.ss"
"ikarus.intel-assembler.ss"
"ikarus.fasl.ss"
"ikarus.compiler.ss"
"ikarus.syntax.ss"
"libpp.ss"
"ikarus.pretty-print.ss"
"libcafe.ss"
"libposix.ss"
"libtimers.ss"