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

371.2

Browse Source 
svn: r7263

original commit: e4cbc4e6a938fd5bd90aab305ca39d61e7eae151
This commit is contained in:
Matthew Flatt 2007-09-02 17:39:32 +00:00
parent 1e119e583d
commit f8c7594976
3 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/class.ss
View File

@ -37,7 +37,7 @@
private public override augment private public override augment
pubment overment augride pubment overment augride
public-final override-final augment-final public-final override-final augment-final
field init init-field field init init-field init-rest
rename-super rename-inner inherit inherit/super inherit/inner inherit-field rename-super rename-inner inherit inherit/super inherit/inner inherit-field
this super inner this super inner
super-make-object super-instantiate super-new super-make-object super-instantiate super-new

4
collects/mzlib/cm.ss
View File

@ -25,12 +25,12 @@
(x (apply max x)))) (x (apply max x))))
(define (get-deps code path) (define (get-deps code path)
(let-values ([(imports fs-imports ft-imports) (module-compiled-imports code)]) (let-values ([(imports fs-imports ft-imports fl-imports) (module-compiled-imports code)])
(map path->bytes (map path->bytes
(map (lambda (x) (map (lambda (x)
(resolve-module-path-index x path)) (resolve-module-path-index x path))
;; Filter symbols: ;; Filter symbols:
(let loop ([l (append imports fs-imports ft-imports)]) (let loop ([l (append imports fs-imports ft-imports fl-imports)])
(cond (cond
[(null? l) null] [(null? l) null]
[(symbol? (car l)) (loop (cdr l))] [(symbol? (car l)) (loop (cdr l))]

1
collects/mzlib/for.ss
View File

@ -29,6 +29,7 @@
stop-after stop-after
(rename *in-indexed in-indexed) (rename *in-indexed in-indexed)
sequence?
sequence-generate sequence-generate
define-sequence-syntax define-sequence-syntax