github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-04-29 13:32:51 +00:00
Code Issues Projects Releases Wiki Activity

Correct parameter declarations for N_OP_cons (int => LispPTR)

Browse Source
This commit is contained in:
Nick Briggs
2023-02-21 09:41:28 -08:00
parent e94d0f1cff
commit 2b5a34ebe9
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
inc/conspagedefs.h
View File

@@ -2,6 +2,6 @@
#define CONSPAGEDEFS_H 1 #define CONSPAGEDEFS_H 1
#include "lispemul.h" /* for LispPTR */ #include "lispemul.h" /* for LispPTR */
struct conspage *next_conspage(void); struct conspage *next_conspage(void);
LispPTR N_OP_cons(int cons_car, int cons_cdr); LispPTR N_OP_cons(LispPTR cons_car, LispPTR cons_cdr);
LispPTR cons(LispPTR cons_car, LispPTR cons_cdr); LispPTR cons(LispPTR cons_car, LispPTR cons_cdr);
#endif #endif

2
src/conspage.c
View File

@@ -292,7 +292,7 @@ static ConsCell *find_free_cons_cell(void) {
*/ */
/**********************************************************************/ /**********************************************************************/
LispPTR N_OP_cons(int cons_car, int cons_cdr) { LispPTR N_OP_cons(LispPTR cons_car, LispPTR cons_cdr) {
extern struct dtd *ListpDTD; extern struct dtd *ListpDTD;
struct conspage *new_conspage; struct conspage *new_conspage;