[armedbear-cvs] r11685 - trunk/abcl/src/org/armedbear/lisp/scripting

[Alessio Stalla]

Author: astalla
Date: Mon Feb 23 20:22:48 2009
New Revision: 11685

Log:
Fixed interpreter creation.


Modified:
   trunk/abcl/src/org/armedbear/lisp/scripting/AbclScriptEngine.java

Modified: trunk/abcl/src/org/armedbear/lisp/scripting/AbclScriptEngine.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/scripting/AbclScriptEngine.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/scripting/AbclScriptEngine.java	Mon Feb 23 20:22:48 2009
@@ -45,8 +45,10 @@
 	private Function evalCompiledScript;
 
 	public AbclScriptEngine() {
-		interpreter = Interpreter.createInstance();
-		interpreter.initializeLisp();
+		interpreter = Interpreter.getInstance();
+		if(interpreter == null) {
+		    interpreter = Interpreter.createInstance();
+		}
 		this.nonThrowingDebugHook = Symbol.DEBUGGER_HOOK.getSymbolValue();
 		try {
 			loadFromClasspath("/org/armedbear/lisp/scripting/lisp/packages.lisp");