guile-vm is completely self-compiling now!

[bpt/guile.git] / module / language / scheme / translate.scm

diff --git a/module/language/scheme/translate.scm b/module/language/scheme/translate.scm
index bb16ce9..4aaefdc 100644 (file)
--- a/module/language/scheme/translate.scm
+++ b/module/language/scheme/translate.scm
@@ -127,7 +127,7 @@
                 (else (syntax-error ,loc (format #f "bad ~A" ',sym) ,exp)))))))
   `(list ,@(map make1 body)))
 
-(define *the-compile-toplevel-symbol* 'load-toplevel)
+(define *the-compile-toplevel-symbol* 'compile-toplevel)
 
 (define primitive-syntax-table
   (make-pmatch-transformers