conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* Added pretty formats for library and import forms, fixed 

pretty format of define.
This commit is contained in:
Abdulaziz Ghuloum 2007-11-06 03:04:32 -05:00
parent 9632e19032
commit 217dff5d3e
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/ikarus.pretty-print.ss
View File

@ -609,6 +609,7 @@
(if (output-port? p) (if (output-port? p)
(pretty x p) (pretty x p)
(error 'pretty-print "not an output port" p))])) (error 'pretty-print "not an output port" p))]))
;;; standard formats
(set-fmt! 'quote '(read-macro . "'")) (set-fmt! 'quote '(read-macro . "'"))
(set-fmt! 'unquote '(read-macro . ",")) (set-fmt! 'unquote '(read-macro . ","))
(set-fmt! 'unquote-splicing '(read-macro . ",@")) (set-fmt! 'unquote-splicing '(read-macro . ",@"))
@ -627,7 +628,7 @@
(set-fmt! 'let* '(_ (0 [e 0 e] ...) tab e ...)) (set-fmt! 'let* '(_ (0 [e 0 e] ...) tab e ...))
(set-fmt! 'let-values '(_ (0 [e 0 e] ...) tab e tab e* ...)) (set-fmt! 'let-values '(_ (0 [e 0 e] ...) tab e tab e* ...))
(set-fmt! 'cond '(_ tab [0 e ...] ...)) (set-fmt! 'cond '(_ tab [0 e ...] ...))
(set-fmt! 'define '(_ name tab e tab e ...)) (set-fmt! 'define '(_ name tab e ...))
(set-fmt! 'case-lambda (set-fmt! 'case-lambda
'(_ tab [0 e ...] ...)) '(_ tab [0 e ...] ...))
(set-fmt! 'struct-case (set-fmt! 'struct-case
@ -643,6 +644,9 @@
tab (e 0 e 0 e ...) ...)) tab (e 0 e 0 e ...) ...))
(set-fmt! 'module '(alt (_ (fill ...) tab e ...) (set-fmt! 'module '(alt (_ (fill ...) tab e ...)
(_ name (fill ...) tab e ...))) (_ name (fill ...) tab e ...)))
(set-fmt! 'library '(_ name tab e ...))
(set-fmt! 'import '(_ tab e ...))
) )
#!eof #!eof