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