From: Chris Hanson Date: Sat, 9 Jun 2007 01:19:57 +0000 (+0000) Subject: Make sure "sos" is consistently treated as a boot dir. X-Git-Tag: 20090517-FFI~540 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=559bd8c399944ed56d697bb72404462528892cdd;p=mit-scheme.git Make sure "sos" is consistently treated as a boot dir. --- diff --git a/v7/src/etc/compile.scm b/v7/src/etc/compile.scm index 4899fbb31..efda6a45e 100644 --- a/v7/src/etc/compile.scm +++ b/v7/src/etc/compile.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: compile.scm,v 1.21 2007/06/08 06:03:51 cph Exp $ +$Id: compile.scm,v 1.22 2007/06/09 01:19:57 cph Exp $ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -35,7 +35,6 @@ USA. (define (compile-all-dirs compile-dir) (compile-boot-dirs compile-dir) - (compile-dir "sos") (with-working-directory-pathname "sos" (lambda () (load "load"))) @@ -43,7 +42,8 @@ USA. (define (compile-boot-dirs compile-dir) (compile-cref compile-dir) - (for-each compile-dir '("runtime" "cref" "sf" "compiler" "star-parser"))) + (for-each compile-dir + '("runtime" "cref" "sf" "compiler" "star-parser" "sos"))) (define (compile-cref compile-dir) (compile-dir "cref")