1
0
mirror of https://github.com/cookiengineer/audacity synced 2025-11-21 00:17:16 +01:00

A function to extend XLisp's table of function bindings dynamically

This commit is contained in:
Paul Licameli
2018-02-21 15:46:18 -05:00
parent e57afb3729
commit a1dc8305f0
7 changed files with 38 additions and 7 deletions

View File

@@ -925,7 +925,7 @@ int xlisnumber(char *str, LVAL *pval)
/* defmacro - define a read macro */
void defmacro(int ch, LVAL type, int offset)
{
extern FUNDEF funtab[];
extern FUNDEF *funtab;
LVAL subr;
subr = cvsubr(funtab[offset].fd_subr,funtab[offset].fd_type,offset);
setelement(getvalue(s_rtable),ch,cons(type,subr));