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

Updated lingering use of old src-info format.

Browse Source 
svn: r17732
This commit is contained in:
Carl Eastlund 2010-01-19 03:41:30 +00:00
parent 4de3ee3a9e
commit 3921e16aa1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scheme/contract/regions.ss
View File

@ -345,7 +345,8 @@
#:guard (contract (-> super-contracts ... non-auto-contracts ... symbol? any)
guard
(current-contract-region) blame-id
#'maker)))))))))]
(quote maker)
(quote-srcloc maker))))))))))]
[(_ name . bad-fields)
(identifier? #'name)
(syntax-error "expected a list of field name/contract pairs"