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

removed commented class code completely: it leads to dependency cycles

Browse Source 
svn: r10472
This commit is contained in:
Eli Barzilay 2008-06-27 04:20:38 +00:00
parent f283f97493
commit 8383a541f7
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/syntax/module-reader.ss
View File

@ -1,7 +1,5 @@
(module module-reader scheme/base (module module-reader scheme/base
;; (require scheme/class) ; avoid requiring too much to the reader level
(provide (rename-out [provide-module-reader #%module-begin] (provide (rename-out [provide-module-reader #%module-begin]
[wrap wrap-read-all])) [wrap wrap-read-all]))
@ -26,13 +24,6 @@
(reverse a) (reverse a)
(loop (cons v a)))))] (loop (cons v a)))))]
[p-name (object-name port)] [p-name (object-name port)]
#;
[p-name (let ([i (and (object? p-name) (object-interface p-name))])
(cond [(and i (method-in-interface? 'get-port-name i))
(send p-name get-port-name)]
[(and i (method-in-interface? 'get-filename i))
(send p-name get-filename)]
[else p-name]))]
[name (if (path? p-name) [name (if (path? p-name)
(let-values ([(base name dir?) (split-path p-name)]) (let-values ([(base name dir?) (split-path p-name)])
(string->symbol (string->symbol