Changeset 4060

Timestamp:

09/25/03 18:22:11 (20 years ago)

Author:

piso

Message:

run(): call TPL::TOP-LEVEL-LOOP if it's fbound.

File:

• trunk/j/src/org/armedbear/lisp/Interpreter.java (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/Interpreter.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Interpreter.java,v 1.38 2003-09-25 15:37:08 piso Exp $
+ * $Id: Interpreter.java,v 1.39 2003-09-25 18:22:11 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -116 +116 @@
             out.writeString(banner());
             initialize(jlisp);
+            Symbol TOP_LEVEL_LOOP = intern("TOP-LEVEL-LOOP", PACKAGE_TPL);
+            LispObject replFun = TOP_LEVEL_LOOP.getSymbolFunction();
+            if (replFun instanceof Function) {
+                replFun.execute();
+                return;
+            }
             while (true) {
                 try {