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

svn: r283

Browse Source
This commit is contained in:
Kathy Gray 2005-06-30 19:29:41 +00:00
parent b6cf15b4b7
commit cddd4e4e66
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/profj/build-info.ss
View File

@ -249,9 +249,9 @@
(lambda (p) (parse p location (unbox new-level))))))
(send type-recs set-compilation-location location (build-path dir "compiled"))
(build-info ast (unbox new-level) type-recs 'not_look_up)
(send type-recs get-class-record class-name #f
(lambda () 'internal-error "Failed to add record"))
(dynamic? old-dynamic?)
(begin0 (send type-recs get-class-record class-name #f
(lambda () 'internal-error "Failed to add record"))
(dynamic? old-dynamic?))
))))
(send type-recs add-require-syntax class-name (build-require-syntax class path dir #t #f)))
(else (file-error 'file (cons class path) caller-src level)))