X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Ftoplevel.lisp;h=7dddf6e5f6bbc4632bcac269edb2e2209f72d7b3;hb=259f6aaee78865c11889b9b83f3306192fee6bd9;hp=497d4a032058918439a21b7962469505402a71b4;hpb=a156c35cc2a16a67a4e2e9ff0d81860d5f55e824;p=jscl.git

diff --git a/src/toplevel.lisp b/src/toplevel.lisp
index 497d4a0..7dddf6e 100644
--- a/src/toplevel.lisp
+++ b/src/toplevel.lisp
@@ -16,9 +16,10 @@
 ;; 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)))
+  (js-eval (compile-toplevel x t)))
 
 (defvar * nil)
 (defvar ** nil)
@@ -257,8 +258,8 @@
   (setf #j:read #'ls-read-from-string)
   (setf #j:print #'prin1-to-string)
   (setf #j:eval #'eval)
-  (setf #j:compile (lambda (s) (ls-compile-toplevel s t)))
+  (setf #j:compile (lambda (s) (compile-toplevel s t)))
   (setf #j:evalString (lambda (str) (eval (ls-read-from-string str))))
   (setf #j:evalInput (lambda (str) (eval-interactive (ls-read-from-string str))))
-  (setf #j:compileString (lambda (str) (ls-compile-toplevel (ls-read-from-string str) t))))
+  (setf #j:compileString (lambda (str) (compile-toplevel (ls-read-from-string str) t))))