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

fix local expansion for printing wrapper to use the right #%app, etc.

Browse Source 
svn: r7912
This commit is contained in:
Matthew Flatt 2007-12-07 14:34:11 +00:00
parent 69d98535fa
commit 5adbf6424b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/scheme/private/modbeg.ss
View File

@ -45,14 +45,14 @@
(quote-syntax (quote-syntax
(quote (quote
quote-syntax #%top quote-syntax #%top
#%plain-lambda case-lambda lambda case-lambda
let-values letrec-values let-values letrec-values
begin begin0 set! begin begin0 set!
with-continuation-mark with-continuation-mark
if #%plain-app #%expression if #%app #%expression
define-values define-syntaxes define-values-for-syntax define-values define-syntaxes define-values-for-syntax
module module
#%plain-module-begin #%module-begin
#%require #%provide #%require #%provide
#%variable-reference))))]) #%variable-reference))))])
;; `begin' is special... ;; `begin' is special...
@ -84,7 +84,7 @@
(quote-syntax (quote-syntax
(define-values define-syntaxes define-values-for-syntax (define-values define-syntaxes define-values-for-syntax
module module
#%plain-module-begin #%module-begin
#%require #%provide)))) #%require #%provide))))
#f #f
#t) #t)