| commit | 1e8b756c9849c632438a7bd43940c4e939c8d5ca | [log] [tgz] |
|---|---|---|
| author | swissChili <swisschili@fastmail.com> | Wed Dec 22 21:22:57 2021 -0800 |
| committer | swissChili <swisschili@fastmail.com> | Wed Dec 22 21:22:57 2021 -0800 |
| tree | 77f279e8d58286f588a42e0f9feba42194830f57 | |
| parent | fc5c9413047d17191da203e8ec8025a3d447bc5f [diff] [blame] |
Begin multitasking refactor to support ring-3 TSS
diff --git a/src/lisp/error.h b/src/lisp/error.h index 7577cdf..6778081 100644 --- a/src/lisp/error.h +++ b/src/lisp/error.h
@@ -44,6 +44,7 @@ __error.loc.line = cons_line(val), \ __error.loc.file = cons_file(val) #define NEARIS(is) (is)->getpos((is), &__error.loc.line, &__error.loc.file) +#define NEARFL(f, l) __error.loc.line=l, __error.loc.file=f #define _TRY(expr, m, c) \ { \ struct error __sub = (expr); \