move release notes in appropriate packages

A collection declares release notes with a `release-notes' field in
"info.rkt".

The "doc" directory is now populated exclusively by generated content,
instead of having a static "release-notes" directory (and a "keep-dirs.rktd"
file to record the static directories).

pkgs/drracket/drracket/info.rkt

@@ -8,3 +8,5 @@
 
 (define gracket-launcher-names     '("DrRacket"))
 (define gracket-launcher-libraries '("drracket.rkt"))
+
+(define release-notes (list (list "DrRacket" "HISTORY.txt")))

pkgs/drracket/gui-debugger/LICENSE.txt

@@ -0,0 +1,3 @@
+  Clanbomber icon
+  Everaldo Coelho
+  http://www.everaldo.com/

pkgs/gui-pkgs/gui-lib/mred/info.rkt

@@ -2,3 +2,9 @@
 
 (define version '(400))
 (define post-install-collection "installer.rkt")
+
+(define release-notes '(("GRacket and racket/gui" "HISTORY.txt"
+                         0
+                         (("Porting from v5.0.x to v5.1" "Draw_and_GUI_5_1.txt")
+                          ("Porting to v1xxx" "MrEd_100.txt")
+                          ("Porting to v1xxx" "MrEd_100_Framework.txt")))))

pkgs/htdp/stepper/info.rkt

@@ -7,3 +7,4 @@
 (define drracket-tool-icons (list '("stepper-32x32.png" "icons")))
 
 (define scribblings '(("scribblings/stepper.scrbl")))
+(define release-notes (list (list "Stepper" "HISTORY.txt")))

pkgs/htdp/teachpack/info.rkt

@@ -1,3 +1,4 @@
 #lang setup/infotab
 
 (define scribblings '(("teachpack.scrbl" (multi-page) (teaching -13))))
+(define release-notes (list (list "Teachpacks" "HISTORY.txt")))

pkgs/icons/LICENSE.txt

@@ -0,0 +1,7 @@
+  Stop icon
+  Everaldo Coelho
+  http://www.everaldo.com/
+
+  Save icon
+  David Vignoni
+  http://icon-king.com/

pkgs/math/LICENSE.txt

@@ -1,7 +1,7 @@
 The math collection is distributed under the GNU Lesser General Public
 License Version 3 (LGPLv3) just like the majority of Racket's libraries.
 The LGPLv3 license text is included in every Racket distribution, in the
-file "doc/release-notes/COPYING_LESSER.txt".
+file "COPYING_LESSER.txt".
 
 Some of the math library code is derived from the C++ project Boost,
 from source files released under the Boost Software License Version 1.0

pkgs/picturing-programs/picturing-programs/HISTORY.txt

@@ -0,0 +1,15 @@
+Version 2.5: Re-enabled diagonal reflection.  Moved into the bundle
+             (so it doesn't require a PLaneT install).  Added some picture variables.
+Rewrote a bunch of things for compatibility with 5.1.
+Version 2.4: Added change-to-color and map3-image.  Cleaned up documentation.
+Version 2.3: Renamed files from .ss to .rkt, so they work better with Racket.  
+             Added map-image, build-image, name->color, and friends; re-fixed bug in rotate-cw and rotate-ccw.
+Version 2.2: Fixed bug in rotate-cw and rotate-ccw; restored reflect-vert and reflect-horiz; added with-input-from-url.
+Version 2.1: Added argument type-checking.  And reflection primitives are now present but produce error message, rather than being missing.
+Version 2.0: now fully compatible with 2htdp/image and 2htdp/universe.  No pinholes; temporarily disabled reflection primitives.
+Version 1.6: fixed same transparency bug for 4.2.4
+Version 1.5: fixed same transparency bug for 4.2.3
+Version 1.4: fixed transparency bug for 4.2.2
+Version 1.3: initial release, for DrScheme 4.2.4
+Version 1.2: initial release, for DrScheme 4.2.3
+Version 1.1: initial release, for DrScheme 4.2.2

pkgs/picturing-programs/picturing-programs/info.rkt

@@ -8,18 +8,4 @@
   (define compile-omit-paths '("tests"))
   (define blurb
       `("The picturing-programs collection supersedes the tiles and sb-world collections.  It provides functions to rotate, etc. images, as well as a slightly modified version of the universe teachpack."))
-  (define release-notes '(
+  (define release-notes '(("Picturing Programs" "HISTORY.txt")))
-(p "Version 2.5: Re-enabled diagonal reflection.  Moved into the bundle
-(so it doesn't require a PLaneT install).  Added some picture variables.
-Rewrote a bunch of things for compatibility with 5.1.")
-(p "Version 2.4: Added change-to-color and map3-image.  Cleaned up documentation.")
-(p "Version 2.3: Renamed files from .ss to .rkt, so they work better with Racket.  Added map-image, build-image, name->color, and friends; re-fixed bug in rotate-cw and rotate-ccw.")
-(p "Version 2.2: Fixed bug in rotate-cw and rotate-ccw; restored reflect-vert and reflect-horiz; added with-input-from-url.")
-(p "Version 2.1: Added argument type-checking.  And reflection primitives are now present but produce error message, rather than being missing.")
-(p "Version 2.0: now fully compatible with 2htdp/image and 2htdp/universe.  No pinholes; temporarily disabled reflection primitives.")
-(p "Version 1.6: fixed same transparency bug for 4.2.4")
-(p "Version 1.5: fixed same transparency bug for 4.2.3")
-(p "Version 1.4: fixed transparency bug for 4.2.2")
-(p "Version 1.3: initial release, for DrScheme 4.2.4")
-(p "Version 1.2: initial release, for DrScheme 4.2.3")
-(p "Version 1.1: initial release, for DrScheme 4.2.2")))

pkgs/plai/info.rkt

@@ -7,3 +7,4 @@
 (define primary-file "main.rkt")
 
 (define scribblings '(("scribblings/plai.scrbl" (multi-page) (teaching -20))))
+(define release-notes (list (list "PLAI" "HISTORY.txt")))

pkgs/racket-pkgs/racket-doc/scribblings/raco/setup.scrbl

@@ -405,6 +405,27 @@ Optional @filepath{info.rkt} fields trigger additional actions by
    into the document. It must be a positive, exact integer, and the
    default is @racket[1].}
 
+ @item{@as-index{@racketidfont{release-notes}} : @racket[(listof (cons/c string? (cons/c string? list?)))] ---
+   A list of release-notes text files to link from the main documentation pages.
+   Each note is itself represented as a list, and the list can specify auxiliary
+   notes that are grouped with the main note.
+
+   A @racketidfont{release-notes} entry must be a value
+   that can be generated from an expression matching the following
+   @racket[entry] grammar:
+
+   @racketgrammar*[
+     #:literals (list)
+     [entry (list note ...)]
+     [doc (list label-string note-path)
+          (list label-string note-path order-integer)
+          (list label-string note-path order-integer
+                (list sub-note ...))]
+     [sub-note (list label-string note-path)]
+   ]
+
+   The @racket[_order-integer] is used to order notes and defaults to @racket[0].}
+
  @item{@indexed-racket[racket-launcher-names] : @racket[(listof string?)]
    --- @elemtag["racket-launcher-names"] A list of executable names
    to be generated in the installation's executable directory to run

pkgs/racket-pkgs/racket-index/scribblings/main/config.rkt

@@ -18,7 +18,7 @@
     ---
     (license "License"          plt  "license/index.html")
     (acks    "Acknowledgements" plt  "acks/index.html")
-    (release "Release Notes"    plt  "release/index.html")
+    (release "Release Notes"    user  "release/index.html")
     ---
     (bugreport "Report a Bug"   #f ,(format "~a?v=~a" bug-url (version)))))
 

pkgs/racket-pkgs/racket-index/scribblings/main/info.rkt

@@ -7,4 +7,4 @@
     ("local-redirect.scrbl" (depends-all-main no-depend-on) (omit))
     ("license.scrbl" () (omit))
     ("acks.scrbl"    () (omit))
-    ("release.scrbl" () (omit))))
+    ("release.scrbl" (depends-all-main no-depend-on) (omit))))

pkgs/racket-pkgs/racket-index/scribblings/main/license.scrbl

@@ -21,8 +21,8 @@ General Public License (LGPL).  This means
 
 ]
 
-See @filepath{doc/release-notes/COPYING_LESSER.txt} in your Racket installation
+See @filepath{COPYING_LESSER.txt} in your Racket installation's @filepath{lib}
-for more information.
+directory for more information.
 
 @copyright{
   Racket
@@ -31,27 +31,6 @@ for more information.
 
 Racket software includes or extends the following copyrighted material:
 
-@copyright{
-  DrScheme
-  Copyright (c) 1995-2003 PLT
-  Copyright (c) 2004-2010 PLT Design Inc.
-  All rights reserved.
-}
-
-@copyright{
-  MrEd
-  Copyright (c) 1995-2003 PLT
-  Copyright (c) 2004-2010 PLT Design Inc.
-  All rights reserved.
-}
-
-@copyright{
-  MzScheme
-  Copyright (c) 1995-2003 PLT
-  Copyright (c) 2004-2010 PLT Design Inc.
-  All rights reserved.
-}
-
 @copyright{
   libscheme
   Copyright (c) 1994 Brent Benson
@@ -79,13 +58,6 @@ Racket software includes or extends the following copyrighted material:
   Free Software Foundation, Inc.
 }
 
-@copyright{
-  GNU MPFR Library
-  Copyright (c) 2000-2012
-  Free Software Foundation, Inc.
-  Contributed by the AriC and Caramel projects, INRIA.
-}
-
 @copyright{
   GNU lightning
   Copyright (c) 1994, 1995, 1996, 1999, 2000, 2001, 2002, 2011
@@ -97,20 +69,5 @@ Racket software includes or extends the following copyrighted material:
   Copyright (c) 2003-2005 Hewlett-Packard Development Company, L.P.
 }
 
-@copyright{
+See also other @filepath{LICENSE.txt} files in your distribution or
-  PSMTabBarControl
+packages.
-  John Pannell, Robert Payne, Adam Strzelecki, Dorian Johnson
-  https://github.com/dorianj/PSMTabBarControl
-}
-
-@copyright{
-  Clanbomber icon and Stop icons
-  Everaldo Coelho
-  http://www.everaldo.com/
-}
-
-@copyright{
-  Save icon
-  David Vignoni
-  http://icon-king.com/
-}

pkgs/racket-pkgs/racket-index/scribblings/main/private/release.rkt

@@ -0,0 +1,52 @@
+#lang racket/base
+(require setup/getinfo
+         scribble/core
+         (except-in scribble/base url)
+         scribble/html-properties
+         net/url
+         racket/path)
+
+(provide release-items)
+
+(struct notes (pos label path subs)
+  #:transparent)
+
+(define (build-release-list which)
+  (sort
+   (for*/list ([dir (in-list (find-relevant-directories '(release-notes) which))]
+               [rel (let ([i (get-info/full dir)])
+                      (if i
+                          (i 'release-notes (lambda () null))
+                          null))])
+     (define label (car rel))
+     (define file (cadr rel))
+     (define pos (if (null? (cddr rel))
+                     0
+                     (caddr rel)))
+     (define subs (if (or (null? (cddr rel))
+                          (null? (cdddr rel)))
+                      null
+                      (list-ref rel 3)))
+     (notes pos label (path->complete-path file dir)
+            (for/list ([sub (in-list subs)])
+              (cons (car sub) (path->complete-path (cadr sub) dir)))))
+   (lambda (a b)
+     (cond
+      [((notes-pos a) . < . (notes-pos b)) #t]
+      [((notes-pos a) . > . (notes-pos b)) #f]
+      [else (string<? (notes-label a) (notes-label b))]))))
+
+(define (item-link lbl p)
+  (elem #:style (style #f (list (link-resource p)))
+        lbl))
+
+(define (release-items which)
+  (apply itemlist #:style "compact"
+         (for/list ([n (in-list (build-release-list which))])
+           (item (item-link (notes-label n) (notes-path n))
+                 (if (null? (notes-subs n))
+                     null
+                     (apply itemlist #:style "compact"
+                            (for/list ([s (in-list (notes-subs n))])
+                              (item (item-link (car s) (cdr s))))))))))
+

pkgs/racket-pkgs/racket-index/scribblings/main/release.scrbl

@@ -1,28 +1,7 @@
 #lang scribble/doc
-@(require scribble/manual setup/dirs "private/utils.rkt")
+@(require "private/utils.rkt"
-
+          "private/release.rkt")
-@(define (rl-link path . content)
-   (apply link (apply build-path (find-doc-dir) "release-notes" path)
-               content))
-@(define (mzport doc from to)
-   (rl-link (list "racket" doc) (format "Porting from ~a to ~a" from to)))
 
 @main-page['release]
 
-@itemize[#:style "compact"]{
+@(release-items 'no-user)
-
- @item{@rl-link['("racket" "HISTORY.txt")]{Racket core}
-       @itemize[#:style "compact"]{
-         @item{@mzport["Draw_and_GUI_5_1.txt" "v5.0.x" "v5.1"]}
-         @item{@mzport["Racket_5.txt" "v4.x" "v5.x"]}
-         @item{@mzport["MzScheme_4.txt" "v3xx" "v4.x"]}
-         @item{@mzport["MzScheme_300.txt" "v2xx" "v3xx"]}
-         @item{@mzport["MzScheme_200.txt" "v1xx" "v2xx"]}}}
- @item{@rl-link['("drracket" "HISTORY.txt")]{DrRacket}}
- @item{@rl-link['("gracket" "HISTORY.txt")]{GRacket}}
- @item{@rl-link['("teachpack" "HISTORY.txt")]{Teachpacks}}
- @item{@rl-link['("stepper" "HISTORY.txt")]{Stepper}}
- @item{@rl-link['("plai" "HISTORY.txt")]{PLAI}}
- @item{@rl-link['("redex" "HISTORY.txt")]{Redex}}
-
-}

pkgs/racket-pkgs/racket-index/scribblings/main/user/info.rkt

@@ -3,4 +3,5 @@
 (define scribblings
   '(("start.scrbl" (user-doc-root depends-all no-depend-on) (omit))
     ("search.scrbl" (user-doc depends-all no-depend-on) (omit))
-    ("local-redirect.scrbl" (user-doc depends-all no-depend-on) (omit))))
+    ("local-redirect.scrbl" (user-doc depends-all no-depend-on) (omit))
+    ("release.scrbl" (user-doc depends-all no-depend-on) (omit))))

pkgs/racket-pkgs/racket-index/scribblings/main/user/release.scrbl

@@ -0,0 +1,7 @@
+#lang scribble/doc
+@(require "../private/utils.rkt"
+          "../private/release.rkt")
+
+@main-page['release #f]
+
+@(release-items 'all-available)

pkgs/racket-pkgs/racket-index/setup/scribble.rkt

@@ -201,14 +201,8 @@
     ;; in the main installation:
     (log-setup-info "checking installation document directories")
     (define main-doc-dir (find-doc-dir))
-    (define extra-dirs (call-with-input-file*
+    (define expected (for/set ([doc (in-list main-docs)])
-                        (build-path main-doc-dir "keep-dirs.rktd")
+                       (doc-dest-dir doc)))
-                        (lambda (i) (read i))))
-    (define expected (set-union
-                      (for/set ([doc (in-list main-docs)])
-                        (doc-dest-dir doc))
-                      (for/set ([i (in-list extra-dirs)])
-                         (build-path main-doc-dir i))))
     (for ([i (in-list (directory-list main-doc-dir))])
       (define p (build-path main-doc-dir i))
       (when (directory-exists? p)
@@ -1241,6 +1235,7 @@
   (when (and (doc-pkg? doc)
              (not (doc-under-main? doc))
              (not latex-dest))
+    (make-directory*/ignore-exists-exn (doc-dest-dir doc))
     (with-compile-output
      (sxref-path latex-dest doc "provides.sxref")
      (lambda (out tmp-filename)

pkgs/redex/info.rkt

@@ -4,5 +4,6 @@
 
 (define name "PLT Redex")
 (define scribblings (list (list "redex.scrbl" (list 'multi-page) (list 'tool))))
+(define release-notes (list (list "Redex" "HISTORY.txt")))
 
 (define compile-omit-paths '("tests"))

pkgs/scribble-pkgs/scribble-lib/scribble/html-properties.rkt

@@ -22,5 +22,6 @@
 
  [part-link-redirect ([url url?])]
  [install-resource ([path path-string?])]
+ [link-resource ([path path-string?])]
 
  [head-extra ([xexpr xexpr/c])])

pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt

@@ -1262,7 +1262,11 @@
              [resources (for/list ([p (in-list properties)]
                                    #:when (install-resource? p))
                           (install-resource-path p))]
-             [link? (and (ormap target-url? properties)
+             [link-resource (for/or ([p (in-list properties)]
+                                     #:when (link-resource? p))
+                              (link-resource-path p))]
+             [link? (and (or (ormap target-url? properties)
+                             link-resource)
                          (not (current-no-links)))]
              [anchor? (ormap url-anchor? properties)]
              [attribs
@@ -1317,7 +1321,11 @@
                    [link? 'a]
                    [newline? 'br]
                    [else 'span]) 
-                 ,attribs
+                 ,(append
+                   (if link-resource
+                       `([href ,(install-file link-resource)])
+                       null)
+                   attribs)
                  ,@content))))))
 
     (define/private (element-style->attribs name style [extras null])

pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/info.rkt

@@ -0,0 +1,3 @@
+#lang setup/infotab
+
+(define release-notes '(("Typed Racket" "HISTORY.txt")))

racket/.gitignore

@@ -2,6 +2,7 @@
 /bin/
 /include/
 /etc/
+/doc/
 
 # Windows and OSX executables
 /*.app

racket/doc/.gitignore

@@ -1,12 +0,0 @@
-# ignore all sub-directories and generated files
-/*/
-/*.html
-/*.css
-/*.js
-/*.sxref
-/blueboxes.rktd
-/docindex.sqlite
-
-# except directories that have committed contents
-!/release-notes/
-!/*-std/

racket/doc/doc-license.txt

@@ -1,2 +0,0 @@
-Unless noted otherwise, PLT Documentations are all distributed under
-the terms of the LGPL.  See release-notes/COPYING_LESSER.txt.

racket/doc/keep-dirs.rktd

@@ -1,9 +0,0 @@
-;; This file holds a list of directory names that should be preserved
-;; but are not a result of any "info.rkt"'s 'scribblings entry.  Such
-;; directories usually hold content that is static (i.e., not built from
-;; Scribble sources).
-;;
-;; The `setup/scribblings' library uses this list to avoid deleting
-;; those drectories.
-
-("release-notes")

racket/doc/release-notes/racket/rename-super-fixup.rkt

@@ -1,125 +0,0 @@
-
-;; This script attempts to update a program that uses the v20x class
-;; system to use the v299 class system: it eliminates `rename' clauses,
-;; and changes the corresponding uses of `(super-<id> <arg> ...)' to
-;; uses of `(super <id> <arg> ...)'.
-
-;; The script is not particularly clever: it assumes that an S-exp of
-;; the form `(rename [<id> <id>] ...)' is a use in `class', unless it
-;; appears immediately a `unit/sig' S-exp. Furthermore, uses of the
-;; first identifier in the rename pair are converted to use `super'
-;; only if that identifier's name starts with `super-'.
-
-;; Provide files to convert on the command line:
-;;    mzscheme -qr rename-super-fixup.ss <file> ...
-;; Each <file> is copied to <file>.bak before <file> is overwritten
-;; with the converted code (unless <file>.bak already exists, in which
-;; case it is left as-is).
-
-(require mzlib/list
-	 syntax/stx)
-
-;; returns a list of syntax for `rename' clauses
-;; the order in the list matches the textual order in the source
-(define (find-all-renames s)
-  (cond
-   [(and (stx-pair? s)
-	 (eq? 'unit/sig (syntax-e (stx-car s))))
-    ;; Avoid `rename' clause in a unit:
-    (let ([l (stx->list s)])
-      (if (and l
-	       ((length l) . > . 3)
-	       (stx-pair? (cadddr l))
-	       (eq? 'rename (syntax-e (stx-car (cadddr l)))))
-	  (find-all-renames (list-tail l 4))
-	  (find-all-renames (stx-cdr s))))]
-   [(and (stx-pair? s)
-	 (eq? 'rename (syntax-e (stx-car s))))
-    (let ([l (or (stx->list (stx-cdr s)) '(#f))])
-      (if (andmap (lambda (i)
-		    (and (stx-pair? i)
-			 (identifier? (stx-car i))
-			 (stx-pair? (stx-cdr i))
-			 (identifier? (stx-car (stx-cdr i)))
-			 (stx-null? (stx-cdr (stx-cdr i)))))
-		  l)
-	  (list s)
-	  null))]
-   [(syntax? s) (find-all-renames (syntax-e s))]
-   [(pair? s) (append
-	       (find-all-renames (car s))
-	       (find-all-renames (cdr s)))]
-   [else null]))
-
-;; returns a list of identifiers
-(define (find-all-uses s ids)
-  (cond
-   [(and (identifier? s)
-	 (memq (syntax-e s) ids))
-    (list s)]
-   [(syntax? s) (find-all-uses (syntax-e s) ids)]
-   [(pair? s) (append
-	       (find-all-uses (car s) ids)
-	       (find-all-uses (cdr s) ids))]
-   [else null]))
-
-(define (fixup f)
-  ;; First, search in S-exp form
-  (fprintf (current-error-port) "Fixing ~a~n" (if (path? f)
-						  (path->string f)
-						  f))
-  (let ([s (with-input-from-file f read-syntax)])
-    (let* ([renames (find-all-renames s)]
-	   [ids (filter
-		 (lambda (sym)
-		   (regexp-match #rx"super-" (symbol->string sym)))
-		 (map syntax-e
-		      (map stx-car 
-			   (apply
-			    append
-			    (stx->list (map stx-cdr renames))))))]
-	   [uses (find-all-uses s ids)])
-      ;; Load file content as bytes:
-      (let ([str (with-input-from-file f (lambda () (read-string (file-size f))))])
-	;; Change `super-' to `super ':
-	(for-each (lambda (use)
-		    (let ([pos (syntax-position use)])
-		      (when pos
-			(string-set! str (+ (sub1 pos) 5) #\space))))
-		  uses)
-	;; Drop `rename' lines:
-	(for-each (lambda (rename)
-		    (let ([pos (syntax-position rename)]
-			  [span (syntax-span rename)])
-		      (when (and pos span)
-			(let ([line-start
-			       (regexp-match-positions
-				#rx"[\t ]+$"
-				str
-				0
-				(sub1 pos))]
-			      [line-end (regexp-match-positions
-					 #rx"^ *(\r|\n|\r\n)"
-					 str
-					 (+ (sub1 pos) span))])
-			  
-			  (set! str
-				(string-append
-				 (substring str 0 (if line-start
-						      (caar line-start)
-						      (sub1 pos)))
-				 (substring str (if line-end
-						    (cdar line-end)
-						    (+ (sub1 pos) span)))))))))
-		  (reverse renames))
-	;; Write string out:
-	(let ([bak (format "~a.bak" (if (path? f)
-					(path->string f)
-					f))])
-	  (unless (file-exists? bak)
-	    (copy-file f bak)))
-	(with-output-to-file f (lambda ()
-				 (display str))
-			     'truncate)))))
-      
-(map fixup (vector->list (current-command-line-arguments)))

racket/lib/collects/racket/info.rkt

@@ -0,0 +1,8 @@
+#lang setup/infotab
+
+(define release-notes '(("Racket core" "HISTORY.txt"
+                         -100
+                         (("Porting from v4.x to v5.x" "Racket_5.txt")
+                          ("Porting from v3xxx to v4.x" "MzScheme_4.txt")
+                          ("Porting from v2xxx to v3xxx" "MzScheme_300.txt")
+                          ("Porting from v1xxx to v2xxx" "MzScheme_200.txt")))))

racket/src/Makefile.in

@@ -18,6 +18,8 @@ builddir = @builddir@
 
 NOOP = :
 
+ICP = @ICP@
+
 # RUN_RACKET_<X> typically redirects to RUN_THIS_RACKET_<X>,
 # but it can also redirect to an existing Racket executable
 # that is the same as the version being built (which is
@@ -35,6 +37,10 @@ ALLDIRINFO = "$(DESTDIR)$(bindir)" \
              "$(DESTDIR)$(configdir)" \
              "$(DESTDIR)$(mandir)"
 
+COPYING = "$(srcdir)/COPYING-libscheme.txt" \
+          "$(srcdir)/COPYING_LESSER.txt" \
+          "$(srcdir)/COPYING.txt"
+
 all:
 	$(MAKE) @MAIN_VARIANT@
 
@@ -92,6 +98,7 @@ install-common-middle:
 install-common-last:
 	$(MAKE) fix-paths
 	$(MAKE) @MAKE_INSTALL_PKGSCOPE@-raco-pkg-default-scope
+	$(ICP) $(COPYING) "$(DESTDIR)$(libpltdir)"/
 
 install-no:
 	$(NOOP)

racket/src/mac/README.txt

@@ -84,6 +84,7 @@ XCode:
  Build PSMTabBarControl. You only need the Framework target, and
  in Release mode (which is "Build for Archiving" in Xcode 4.5).
  Use `ditto' to reduce the framework to one architecture.
+ Add back the "LICENSE.txt" file.
 
 Install:
   racket install-libs.rkt <dest>/lib

racket/src/worksp/build.bat

@@ -47,5 +47,9 @@ cd ..
 ..\..\racket -l racket/kernel/init -e "(if (directory-exists? \"../../etc\") (void) (make-directory \"../../etc\"))"
 if errorlevel 1 exit /B 1
 
+copy COPYING-libscheme.txt ..\..\etc\
+copy COPYING_LESSER.txt ..\..\etc\
+copy COPYING.txt ..\..\etc\
+
 ..\..\racket -N "raco setup" %SELF_RACKET_FLAGS% -l- setup %PLT_SETUP_OPTIONS%
 if errorlevel 1 exit /B 1