diff options
Diffstat (limited to 'lang/drscheme/files/patch-collects-profj-to-scheme.ss')
| -rw-r--r-- | lang/drscheme/files/patch-collects-profj-to-scheme.ss | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/lang/drscheme/files/patch-collects-profj-to-scheme.ss b/lang/drscheme/files/patch-collects-profj-to-scheme.ss new file mode 100644 index 000000000000..78032d895fd7 --- /dev/null +++ b/lang/drscheme/files/patch-collects-profj-to-scheme.ss @@ -0,0 +1,20 @@ +--- ../collects/profj/to-scheme.ss 2006/08/02 03:53:43 3922 ++++ ../trunk/collects/profj/to-scheme.ss 2006/09/19 21:01:05 4389 +@@ -341,13 +341,14 @@ + (member (id-string (name-id extend)) + (map id-string (map def-name ordered-defs))))) + +- ;make-composite-name: def -> string ++ ;make-composite-name: string -> string + (define (make-composite-name d) +- (build-identifier (string-append (id-string (header-id (def-header d))) "-composite"))) ++ (build-identifier (string-append d "-composite"))) + + ;translate-defs: (list def) type-records -> (values (list syntax) (list reqs)) + (define (translate-defs defs type-recs) +- (module-name (make-composite-name (car defs))) ++ (let ((sorted-d-list (sort (map (compose id-string def-name) defs) string<?))) ++ (module-name (make-composite-name (car sorted-d-list)))) + (module-require (if (to-file) + (let ((location (build-path (begin (send type-recs set-location! (def-file (car defs))) + (send type-recs get-compilation-location) "compiled") |