Remove CODE use in convert-toplevel

[jscl.git] / src / toplevel.lisp

diff --git a/src/toplevel.lisp b/src/toplevel.lisp
index a396554..99d3b39 100644 (file)
--- a/src/toplevel.lisp
+++ b/src/toplevel.lisp
@@ -16,6 +16,7 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with JSCL.  If not, see <http://www.gnu.org/licenses/>.
 
+(/debug "loading toplevel.lisp!")
 
 (defun eval (x)
   (js-eval (ls-compile-toplevel x t)))
@@ -249,6 +250,8 @@
 
 (setq *package* *user-package*)
 
+(defvar *root* (%js-vref "window"))
+
 ;;; Set some external entry point to the Lisp implementation to the
 ;;; console. It would not be necessary when FFI is finished.
 (let ((*root* #j:lisp))