From 23d43503d19da804ea8f08d0a08e954b4de29324 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sat, 3 May 2008 19:38:10 +0200
Subject: [PATCH] bugfix to make-cenv

* module/system/base/compile.scm (make-cenv): Fix make-cenv.
---
 module/system/base/compile.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index 31801dbf9..4e5057e7a 100644
--- a/module/system/base/compile.scm
+++ b/module/system/base/compile.scm
@@ -35,8 +35,7 @@
 
 (define-record (<cenv> vm language module))
 
-(define-public (make-cenv . rest)
-  (apply <cenv> rest))
+(export make-cenv)
 
 (define-public (syntax-error loc msg exp)
   (throw 'syntax-error loc msg exp))