Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 23:37:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Refactoring

Browse source
This commit is contained in:
Justin Ethier 2016-04-20 03:22:12 -04:00
parent 2ee4cd05b2
commit dc33c2fd7e
3 changed files with 4 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
include/cyclone/runtime.h
View file

@ -237,7 +237,6 @@ object Cyc_num_op_va_list(void *data, int argc, object (fn_op(void *, common_typ
int equal(object,object);
list assq(void *,object,list);
list assoc(void *,object x, list l);
//object get(object,object);
object equalp(object,object);
object memberp(void *,object,list);
object memqp(void *,object,list);

8
include/cyclone/types.h
View file

@ -9,13 +9,13 @@
#ifndef CYCLONE_TYPES_H
#define CYCLONE_TYPES_H
#include <stdlib.h>
#include <stdio.h>
#include <time.h>
#include <math.h>
#include <setjmp.h>
#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
#include <time.h>
#include <pthread.h>
// Maximum number of args that GC will accept

12
runtime.c
View file

@ -745,18 +745,6 @@ object memqp(void *data, object x, list l)
for (; l != NULL; l = cdr(l)) if (eq(x,car(l))) return boolean_t;
return boolean_f;}
//object get(object x, object i)
//{
// object plist, plistd;
// if (x == NULL) return x;
// if (type_of(x)!=symbol_tag) {printf("get: bad x=%ld\n",((closure)x)->tag); exit(0);}
// plist = symbol_plist(x);
// for (; (plist != NULL); plist = cdr(plistd))
// {plistd = cdr(plist);
// if (eq(car(plist),i)) return car(plistd);}
// return NULL;
//}
object equalp(object x, object y)
{
for (; ; x = cdr(x), y = cdr(y)) {