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

error-message typo

Browse Source 
svn: r5797
This commit is contained in:
Matthew Flatt 2007-03-19 22:08:09 +00:00
parent 10ffbe0cb8
commit a5b71fccbf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/compiler/private/xform.ss
View File

@ -2683,7 +2683,7 @@
;; We're not really interested in the conversion.
;; We just want to get live vars and
;; complain about function calls in the decl area:
(convert-function-calls (car el) extra-vars &-vars c++-class live-vars "in decls" #f #t)])
(convert-function-calls (car el) extra-vars &-vars c++-class live-vars "decls" #f #t)])
(dloop (cdr el) live-vars))))))])
;; Calculate vars to push in this block. Make sure there are no duplicates.
(let ([newly-pushed (let ([ht (make-hash-table)])