From: Chris Hanson Date: Tue, 11 Jan 2005 03:13:23 +0000 (+0000) Subject: Use new cref argument to generate for all OS types. X-Git-Tag: 20090517-FFI~1394 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0895ca8482700bd3204a1a2e91f11bd09c6e008c;p=mit-scheme.git Use new cref argument to generate for all OS types. --- diff --git a/v7/src/6001/6001.sf b/v7/src/6001/6001.sf index d2a1641dd..45f94eb34 100644 --- a/v7/src/6001/6001.sf +++ b/v7/src/6001/6001.sf @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: 6001.sf,v 1.15 2003/02/14 18:28:00 cph Exp $ +$Id: 6001.sf,v 1.16 2005/01/11 03:13:23 cph Exp $ -Copyright (c) 1991-1999, 2001 Massachusetts Institute of Technology +Copyright 1991,1992,1993,1995,2001,2005 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -39,4 +39,4 @@ USA. (sf-conditionally "floppy")) (load-option 'CREF) -(cref/generate-constructors "6001") \ No newline at end of file +(cref/generate-constructors "6001" 'ALL) \ No newline at end of file diff --git a/v7/src/compiler/machines/i386/compiler.sf b/v7/src/compiler/machines/i386/compiler.sf index ee9e09d79..3a71ad79e 100644 --- a/v7/src/compiler/machines/i386/compiler.sf +++ b/v7/src/compiler/machines/i386/compiler.sf @@ -1,8 +1,9 @@ #| -*-Scheme-*- -$Id: compiler.sf,v 1.20 2003/02/14 18:28:03 cph Exp $ +$Id: compiler.sf,v 1.21 2005/01/11 03:13:23 cph Exp $ -Copyright (c) 1992-2001 Massachusetts Institute of Technology +Copyright 1992,1993,1994,1995,1996,2000 Massachusetts Institute of Technology +Copyright 2001,2005 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -76,4 +77,4 @@ USA. ((access syntax-files! (->environment '(COMPILER)))) ;; Rebuild the package constructors and cref. -(cref/generate-constructors "compiler") \ No newline at end of file +(cref/generate-constructors "compiler" 'ALL) \ No newline at end of file diff --git a/v7/src/cref/cref.sf b/v7/src/cref/cref.sf index 0f709d42f..1d7b4dbf5 100644 --- a/v7/src/cref/cref.sf +++ b/v7/src/cref/cref.sf @@ -1,8 +1,9 @@ #| -*-Scheme-*- -$Id: cref.sf,v 1.17 2003/02/14 18:28:10 cph Exp $ +$Id: cref.sf,v 1.18 2005/01/11 03:13:23 cph Exp $ -Copyright (c) 1988-2001 Massachusetts Institute of Technology +Copyright 1988,1989,1991,1992,1993,1995 Massachusetts Institute of Technology +Copyright 1996,2001,2005 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -35,4 +36,4 @@ USA. (begin (if (not (name->package '(CROSS-REFERENCE))) (load "make")) - (cref/generate-constructors "cref"))) \ No newline at end of file + (cref/generate-constructors "cref" 'ALL))) \ No newline at end of file diff --git a/v7/src/edwin/edwin.sf b/v7/src/edwin/edwin.sf index 18d9d9c97..91b7b5511 100644 --- a/v7/src/edwin/edwin.sf +++ b/v7/src/edwin/edwin.sf @@ -1,8 +1,9 @@ #| -*-Scheme-*- -$Id: edwin.sf,v 1.32 2003/02/14 18:28:12 cph Exp $ +$Id: edwin.sf,v 1.33 2005/01/11 03:13:23 cph Exp $ -Copyright 1991-2001 Massachusetts Institute of Technology +Copyright 1989,1990,1991,1992,1995,1996 Massachusetts Institute of Technology +Copyright 1999,2000,2001,2005 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -67,5 +68,5 @@ USA. (load "decls") -(cref/generate-constructors "edwin") +(cref/generate-constructors "edwin" 'ALL) (sf-conditionally "edwin.ldr") \ No newline at end of file diff --git a/v7/src/imail/compile.scm b/v7/src/imail/compile.scm index 79166551a..3f5bc5a44 100644 --- a/v7/src/imail/compile.scm +++ b/v7/src/imail/compile.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: compile.scm,v 1.20 2003/02/14 18:28:14 cph Exp $ +$Id: compile.scm,v 1.21 2005/01/11 03:13:23 cph Exp $ -Copyright 2000,2001,2003 Massachusetts Institute of Technology +Copyright 2000,2001,2003,2005 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -43,4 +43,4 @@ USA. "imail-util" "imap-response" "imap-syntax")) - (cref/generate-constructors "imail"))) \ No newline at end of file + (cref/generate-constructors "imail" 'ALL))) \ No newline at end of file diff --git a/v7/src/runtime/runtime.sf b/v7/src/runtime/runtime.sf index 420aff466..4ab69779c 100644 --- a/v7/src/runtime/runtime.sf +++ b/v7/src/runtime/runtime.sf @@ -1,9 +1,9 @@ #| -*-Scheme-*- -$Id: runtime.sf,v 14.20 2003/02/14 18:28:33 cph Exp $ +$Id: runtime.sf,v 14.21 2005/01/11 03:13:23 cph Exp $ -Copyright (c) 1988,1989,1990,1991,1992 Massachusetts Institute of Technology -Copyright (c) 1994,1995,1996,2001,2003 Massachusetts Institute of Technology +Copyright 1988,1989,1990,1991,1992,1994 Massachusetts Institute of Technology +Copyright 1995,1996,2001,2003,2005 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -38,4 +38,4 @@ USA. ;; that when cross-syntaxing the cref `native' to the running system ;; is loaded. (load-option 'CREF) -(cref/generate-constructors "runtime") \ No newline at end of file +(cref/generate-constructors "runtime" 'ALL) \ No newline at end of file diff --git a/v7/src/sf/sf.sf b/v7/src/sf/sf.sf index 243f048e8..6115b5461 100644 --- a/v7/src/sf/sf.sf +++ b/v7/src/sf/sf.sf @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: sf.sf,v 4.13 2003/02/14 18:28:35 cph Exp $ +$Id: sf.sf,v 4.14 2005/01/11 03:13:23 cph Exp $ -Copyright (c) 1988-1999, 2001 Massachusetts Institute of Technology +Copyright 1988,1989,1995,1996,2001,2005 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -43,4 +43,4 @@ USA. (sf-directory ".")) (load-option 'CREF) -(cref/generate-constructors "sf") \ No newline at end of file +(cref/generate-constructors "sf" 'ALL) \ No newline at end of file diff --git a/v7/src/sos/compile.scm b/v7/src/sos/compile.scm index 1ea5a85a3..76cdaa03b 100644 --- a/v7/src/sos/compile.scm +++ b/v7/src/sos/compile.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: compile.scm,v 1.8 2003/02/14 18:28:35 cph Exp $ +$Id: compile.scm,v 1.9 2005/01/11 03:13:23 cph Exp $ -Copyright 1995-1999, 2001 Massachusetts Institute of Technology +Copyright 1997,2001,2005 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -24,7 +24,6 @@ USA. |# (load-option 'CREF) - (with-working-directory-pathname (directory-pathname (current-load-pathname)) (lambda () (compile-file "class") @@ -33,4 +32,4 @@ USA. (compile-file "method") (compile-file "printer") (compile-file "slot") - (cref/generate-constructors "sos"))) \ No newline at end of file + (cref/generate-constructors "sos" 'ALL))) \ No newline at end of file diff --git a/v7/src/ssp/compile.scm b/v7/src/ssp/compile.scm index c8c2c7968..febfd6066 100644 --- a/v7/src/ssp/compile.scm +++ b/v7/src/ssp/compile.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: compile.scm,v 1.6 2004/11/01 19:18:21 cph Exp $ +$Id: compile.scm,v 1.7 2005/01/11 03:13:23 cph Exp $ -Copyright 2003 Massachusetts Institute of Technology +Copyright 2003,2004,2005 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -33,4 +33,4 @@ USA. "mod-lisp" "xhtml-expander" "xmlrpc")) - (cref/generate-constructors "ssp"))) \ No newline at end of file + (cref/generate-constructors "ssp" 'ALL))) \ No newline at end of file diff --git a/v7/src/star-parser/compile.scm b/v7/src/star-parser/compile.scm index 37c55e283..744a09aa5 100644 --- a/v7/src/star-parser/compile.scm +++ b/v7/src/star-parser/compile.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: compile.scm,v 1.8 2003/02/14 18:28:35 cph Exp $ +$Id: compile.scm,v 1.9 2005/01/11 03:13:23 cph Exp $ -Copyright 2001, 2002 Massachusetts Institute of Technology +Copyright 2001,2002,2005 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -32,4 +32,4 @@ USA. '("matcher" "parser" "shared")) - (cref/generate-constructors "parser"))) \ No newline at end of file + (cref/generate-constructors "parser" 'ALL))) \ No newline at end of file diff --git a/v7/src/win32/win32.sf b/v7/src/win32/win32.sf index a06f0a030..3d00ed3e8 100644 --- a/v7/src/win32/win32.sf +++ b/v7/src/win32/win32.sf @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: win32.sf,v 1.11 2003/02/14 18:28:35 cph Exp $ +$Id: win32.sf,v 1.12 2005/01/11 03:13:23 cph Exp $ -Copyright (c) 1993-1999, 2001, 2002 Massachusetts Institute of Technology +Copyright 1993,1995,2001,2002,2005 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -53,4 +53,4 @@ USA. (sf-conditionally "dib")) (sf-directory ".")) -(cref/generate-constructors "win32") \ No newline at end of file +(cref/generate-constructors "win32" 'ALL) \ No newline at end of file diff --git a/v7/src/xdoc/compile.scm b/v7/src/xdoc/compile.scm index 5248dc76d..da45dec5f 100644 --- a/v7/src/xdoc/compile.scm +++ b/v7/src/xdoc/compile.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: compile.scm,v 1.1 2004/11/01 19:21:05 cph Exp $ +$Id: compile.scm,v 1.2 2005/01/11 03:13:23 cph Exp $ -Copyright 2004 Massachusetts Institute of Technology +Copyright 2004,2005 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -31,4 +31,4 @@ USA. (for-each compile-file '("db" "xdoc")) - (cref/generate-constructors "xdoc"))) \ No newline at end of file + (cref/generate-constructors "xdoc" 'ALL))) \ No newline at end of file diff --git a/v7/src/xml/compile.scm b/v7/src/xml/compile.scm index 24f9f80cb..92c1af805 100644 --- a/v7/src/xml/compile.scm +++ b/v7/src/xml/compile.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: compile.scm,v 1.14 2004/07/24 03:45:29 cph Exp $ +$Id: compile.scm,v 1.15 2005/01/11 03:13:23 cph Exp $ -Copyright 2001,2003,2004 Massachusetts Institute of Technology +Copyright 2001,2003,2004,2005 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -45,4 +45,4 @@ USA. "xml-parser" "xhtml" "xhtml-entities")))) - (cref/generate-constructors "xml"))) \ No newline at end of file + (cref/generate-constructors "xml" 'ALL))) \ No newline at end of file