add Lisp.java_error() convenience

armedbear · Jun 29, 2023 · 5fd79cd · 5fd79cd
1 parent 0c6ab18
commit 5fd79cd
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/org/armedbear/lisp/Lisp.java b/src/org/armedbear/lisp/Lisp.java
@@ -475,6 +475,10 @@ public static final LispObject program_error(LispObject initArgs)
     return error(new ProgramError(initArgs));
   }
 
+  public static final LispObject java_error(Throwable t) {
+    return error(new JavaException(t));
+  }
+
   public static volatile boolean interrupted;
   public static volatile LispThread threadToInterrupt;