123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960 |
- #include "stdafx.h"
- #include "defs.h"
- #define F p3
- #define A p4
- #define B p5
- void
- define_user_function(void)
- {
- F = caadr(p1);
- A = cdadr(p1);
- B = caddr(p1);
- if (!issymbol(F))
- stop("function name?");
-
- if (car(B) == symbol(EVAL)) {
- push(cadr(B));
- eval();
- B = pop();
- }
- set_binding_and_arglist(F, B, A);
-
- push_symbol(NIL);
- }
|