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