parent
20e7940059
commit
7931512241
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -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)
|
|
@ -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"
|
||||||
|
|
Loading…
Reference in New Issue