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

removed reference to memv in recordize

This commit is contained in:
Abdulaziz Ghuloum 2006-12-06 21:39:13 -05:00
parent 69008ea318
commit 0fd967384b
2 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
lib/ikarus.boot
View File

Binary file not shown.

12
lib/libcompile.ss
View File

@ -300,12 +300,12 @@
(let ([lhs (cadr x)] [rhs (caddr x)]) (let ([lhs (cadr x)] [rhs (caddr x)])
(make-assign (Var lhs) (E rhs)))] (make-assign (Var lhs) (E rhs)))]
[(begin) [(begin)
(let f ([a (cadr x)] [d (cddr x)]) (let f ([a (E (cadr x))] [d (cddr x)])
(cond (cond
[(null? d) (E a)] [(null? d) a]
[else (make-seq (E a) (f (car d) (cdr d)))]))] [else
(f (make-seq a (E (car d))) (cdr d))]))]
[(letrec) [(letrec)
(unless (fx= (length x) 3) (syntax-error x))
(let ([bind* (cadr x)] [body (caddr x)]) (let ([bind* (cadr x)] [body (caddr x)])
(let ([lhs* (map car bind*)] (let ([lhs* (map car bind*)]
[rhs* (map cadr bind*)]) [rhs* (map cadr bind*)])
@ -345,10 +345,6 @@
[(set-top-level-value!) [(set-top-level-value!)
(make-funcall (make-primref 'set-top-level-value!) (make-funcall (make-primref 'set-top-level-value!)
(map E (cdr x)))] (map E (cdr x)))]
[(memv)
(make-funcall
(make-primref 'memq)
(map E (cdr x)))]
[($apply) [($apply)
(let ([proc (cadr x)] [arg* (cddr x)]) (let ([proc (cadr x)] [arg* (cddr x)])
(make-appcall (make-appcall