From e54514d4be5cad023c630c25ae96180e51f15161 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 7 Dec 2005 20:33:25 +0000
Subject: [PATCH] fix Algol60 stand-alone executables

svn: r1561
---
 collects/algol60/base.ss     | 5 ++++-
 collects/algol60/get-base.ss | 3 ---
 collects/algol60/tool.ss     | 4 +++-
 3 files changed, 7 insertions(+), 5 deletions(-)
 delete mode 100644 collects/algol60/get-base.ss

diff --git a/collects/algol60/base.ss b/collects/algol60/base.ss
index 3197ee5e72..7f831609bd 100644
--- a/collects/algol60/base.ss
+++ b/collects/algol60/base.ss
@@ -2,6 +2,9 @@
   (require "prims.ss"
 	   "runtime.ss")
 
+  (define base-importing-stx #'here)
+
   (provide (all-from mzscheme)
 	   (all-from "prims.ss")
-           (all-from "runtime.ss")))
+           (all-from "runtime.ss")
+           base-importing-stx))
diff --git a/collects/algol60/get-base.ss b/collects/algol60/get-base.ss
deleted file mode 100644
index cb462f60f4..0000000000
--- a/collects/algol60/get-base.ss
+++ /dev/null
@@ -1,3 +0,0 @@
-(module get-base (lib "base.ss" "algol60")
-  (provide base-importing-stx)
-  (define base-importing-stx #'here))
diff --git a/collects/algol60/tool.ss b/collects/algol60/tool.ss
index b97aac49b6..822bb6a977 100644
--- a/collects/algol60/tool.ss
+++ b/collects/algol60/tool.ss
@@ -6,13 +6,15 @@
            "parse.ss"
            "simplify.ss"
            "compile.ss"
-	   "get-base.ss"
 	   (lib "embed.ss" "compiler")
 	   (lib "string-constant.ss" "string-constants")
 	   (prefix bd: "bd-tool.ss"))
 
   (provide tool@)
 
+  (define base-importing-stx (dynamic-require '(lib "base.ss" "algol60")
+					     'base-importing-stx))
+
   (define tool@
     (unit/sig drscheme:tool-exports^
       (import drscheme:tool^)