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

removed an optimization that obscures the names in contracted functions

Browse Source 
svn: r7379
This commit is contained in:
Robby Findler 2007-09-18 15:48:28 +00:00
parent 13e706e817
commit d9cb743afc
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/mzlib/private/contract-arrow.ss
View File

@ -171,7 +171,8 @@
(with-syntax ([outer-lambda (with-syntax ([outer-lambda
(let* ([lst (syntax->list #'args)] (let* ([lst (syntax->list #'args)]
[len (and lst (length lst))]) [len (and lst (length lst))])
(if (and lst (if (and #f ;; this optimization disables the names so is turned off for now
lst
(not (syntax-e #'use-any?)) (not (syntax-e #'use-any?))
(= len (length (syntax->list #'(dom-names ...)))) (= len (length (syntax->list #'(dom-names ...))))
(= 1 (length (syntax->list #'(rng-names ...)))) (= 1 (length (syntax->list #'(rng-names ...))))