github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-05-03 14:59:26 +00:00
Code Issues Projects Releases Wiki Activity

Cleanup in eqf.c

Browse Source 
Correct procedure declarations since N_OP_xxx function args are all LispPTRs
    Replace my.h defn of IsNumber() with Numberp() defn in lsptypes.h
This commit is contained in:
Nick Briggs
2022-08-15 16:19:38 -07:00
parent 58f6f68c7e
commit d35b964393
4 changed files with 17 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
inc/lsptypes.h
View File

@@ -631,6 +631,7 @@ typedef struct
/* This MACRO is similar to LISTP */
#define Listp(address) (GetTypeNumber(address) == TYPE_LISTP)
#define Numberp(address) (GetTypeEntry(address) & TT_NUMBERP)
/******************************************/
/* Lisp's PATHNAME datatype */