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

Lauri's qq patch to use list* instead of cons

Browse Source 
svn: r2051
This commit is contained in:
Matthew Flatt 2006-01-30 20:14:38 +00:00
parent d8ba613559
commit 47aadf7789
3 changed files with 2253 additions and 2257 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4494
src/mzscheme/src/cstartup.inc
View File

File diff suppressed because it is too large Load Diff

8
src/mzscheme/src/startup.inc
View File

@ -166,10 +166,12 @@
"(if(stx-null? d)" "(if(stx-null? d)"
"(list(quote-syntax list) a)" "(list(quote-syntax list) a)"
"(if(if(pair? d)" "(if(if(pair? d)"
"(module-identifier=?(quote-syntax list)(car d))" "(if(module-identifier=?(quote-syntax list)(car d))"
" #t"
"(module-identifier=?(quote-syntax list*)(car d)))"
" #f)" " #f)"
"(list*(quote-syntax list) a(cdr d))" "(list*(car d) a(cdr d))"
"(list(quote-syntax cons) a d))))))" "(list(quote-syntax list*) a d))))))"
"(datum->syntax-object" "(datum->syntax-object"
" here" " here"
"(normal" "(normal"

8
src/mzscheme/src/startup.ss
View File

@ -247,10 +247,12 @@
(if (stx-null? d) (if (stx-null? d)
(list (quote-syntax list) a) (list (quote-syntax list) a)
(if (if (pair? d) (if (if (pair? d)
(module-identifier=? (quote-syntax list) (car d)) (if (module-identifier=? (quote-syntax list) (car d))
#t
(module-identifier=? (quote-syntax list*) (car d)))
#f) #f)
(list* (quote-syntax list) a (cdr d)) (list* (car d) a (cdr d))
(list (quote-syntax cons) a d)))))) (list (quote-syntax list*) a d))))))
(datum->syntax-object (datum->syntax-object
here here
(normal (normal