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

View File

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