conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Added time macro

This commit is contained in:
Abdulaziz Ghuloum 2007-08-30 11:06:21 -04:00
parent 2d9f5377ae
commit 28b143036f
5 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
bin/ikarus-collect.c
View File

@ -230,7 +230,6 @@ gc_tconc_push_extending(gc_t* gc, ikp tcbucket){
p->next = gc->tconc_queue;
gc->tconc_queue = p;
}
/* Wrong MR! */
ikp ap =
ik_mmap_typed(pagesize,
meta_mt[meta_ptrs] | next_gen_tag[0],
@ -1070,7 +1069,7 @@ add_object_proc(gc_t* gc, ikp x)
if((! is_fixnum(key)) && (tagof(key) != immediate_tag)){
unsigned int kt = gc->segment_vector[page_index(key)];
if((kt & gen_mask) <= gc->collect_gen){
/* key is moved */
/* key will be moved */
gc_tconc_push(gc, y);
}
}
@ -1777,8 +1776,7 @@ add_one_tconc(ikpcb* pcb, ikp p){
assert(tagof(tc) == pair_tag);
ikp d = ref(tc, off_cdr);
assert(tagof(d) == pair_tag);
/* Wrong MR! */
ikp new_pair = p + pair_tag; //ik_alloc(pcb, pair_size) + pair_tag;
ikp new_pair = p + pair_tag;
ref(d, off_car) = tcbucket;
ref(d, off_cdr) = new_pair;
ref(new_pair, off_car) = false_object;

BIN
src/ikarus.boot
View File

Binary file not shown.

6
src/ikarus.syntax.ss
View File

@ -784,6 +784,11 @@
(bless `(letrec ([,f (lambda ,lhs* ,b . ,b*)])
(,f . ,rhs*)))
(stx-error stx "invalid syntax"))])))
(define time-macro
(lambda (stx)
(syntax-match stx ()
[(_ expr)
(bless `(time-it ',expr (lambda () ,expr)))])))
(define identifier-syntax-macro
(lambda (stx)
(syntax-match stx ()
@ -1567,6 +1572,7 @@
[(quasiquote) quasiquote-macro]
[(with-syntax) with-syntax-macro]
[(identifier-syntax) identifier-syntax-macro]
[(time) time-macro]
[(... => _ else) incorrect-usage-macro]
[else (error 'macro-transformer "invalid macro ~s" x)])]
[else (error 'core-macro-transformer "invalid macro ~s" x)])))

2
src/makefile.ss
View File

@ -109,6 +109,7 @@
[do (macro . do)]
[and (macro . and)]
[or (macro . or)]
[time (macro . time)]
[... (macro . ...)]
[=> (macro . =>)]
[else (macro . else)]
@ -234,6 +235,7 @@
[do i r]
[and i r]
[or i r]
[time i]
[... i r]
[=> i r]
[else i r]

14
src/todo-r6rs.ss
View File

@ -527,15 +527,15 @@
[command-line C pr]
[exit C pr]
[delay D r5]
[delay S r5]
[exact->inexact C r5]
[force D r5]
[force S r5]
[inexact->exact C r5]
[modulo D r5]
[remainder D r5]
[null-environment D r5]
[quotient D r5]
[scheme-report-environment D r5]
[modulo C r5]
[remainder C r5]
[null-environment S r5]
[quotient C r5]
[scheme-report-environment S r5]
[close-port D ip]
[eol-style D ip]