suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pretty-printer: changed 'module' printing

Browse Source 
svn: r14082

original commit: 3d5377d8f8a0948c4c8ae112230a7017352343ae
This commit is contained in:
Ryan Culpepper 2009-03-13 01:44:30 +00:00
parent f5e49e3128
commit 99331b204b
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/mzlib/pretty.ss
View File

@ -1050,6 +1050,11 @@
(pp-two-up expr extra pp-expr-list depth (pp-two-up expr extra pp-expr-list depth
apair? acar acdr open close)) apair? acar acdr open close))
(define (pp-module expr extra depth
apair? acar acdr open close)
(pp-two-up expr extra pp-expr depth
apair? acar acdr open close))
(define (pp-make-object expr extra depth (define (pp-make-object expr extra depth
apair? acar acdr open close) apair? acar acdr open close)
(pp-one-up expr extra pp-expr-list depth (pp-one-up expr extra pp-expr-list depth
@ -1138,8 +1143,10 @@
((do letrec-syntaxes+values) ((do letrec-syntaxes+values)
(and (no-sharing? expr 2 apair? acdr) (and (no-sharing? expr 2 apair? acdr)
pp-do)) pp-do))
((module)
((send syntax-case instantiate module) (and (no-sharing? expr 2 apair? acdr)
pp-module))
((send syntax-case instantiate)
(and (no-sharing? expr 2 apair? acdr) (and (no-sharing? expr 2 apair? acdr)
pp-syntax-case)) pp-syntax-case))
((make-object) ((make-object)