Much more progress, still doesn't compile.
This commit is contained in:
parent
1ce9fbda77
commit
60921be3d4
25 changed files with 326 additions and 89 deletions
13
src/c/payloads/exception.c
Normal file
13
src/c/payloads/exception.c
Normal file
|
|
@ -0,0 +1,13 @@
|
|||
|
||||
|
||||
#import "memory/pointer.h"
|
||||
#import "memory/pso.h"
|
||||
#import "payloads/exception.h"
|
||||
|
||||
/**
|
||||
* @param p a pointer to an object.
|
||||
* @return true if that object is an exception, else false.
|
||||
*/
|
||||
bool exceptionp( struct pso_pointer p) {
|
||||
return (get_tag_value( p) == EXCEPTIONTV);
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue