Revert "Simplify literal object dumping"

[jscl.git] / src / toplevel.lisp

diff --git a/src/toplevel.lisp b/src/toplevel.lisp
index 2c19dd7..6fb2569 100644 (file)
--- a/src/toplevel.lisp
+++ b/src/toplevel.lisp
@@ -98,8 +98,8 @@
    (ls-compile
     `(progn
        ,@(mapcar (lambda (s) `(%intern-symbol (%js-vref ,(cdr s))))
-                 *literal-table*)
-       (setq *literal-table* ',*literal-table*)
+                 *literal-symbols*)
+       (setq *literal-symbols* ',*literal-symbols*)
        (setq *variable-counter* ,*variable-counter*)
        (setq *gensym-counter* ,*gensym-counter*)
        (setq *block-counter* ,*block-counter*)))))