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

* more cleanup again.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-08 06:58:19 -04:00
parent c4d0277fb3
commit 18e6ac04fa
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

18
src/ikarus.syntax.ss
View File

@ -1391,7 +1391,7 @@
(define gen-map
(lambda (e map-env)
(let ((formals (map cdr map-env))
(actuals (map (lambda (x) (list 'ref (car x))) map-env)))
(actuals (map (lambda (x) `(ref ,(car x))) map-env)))
(cond
; identity map equivalence:
; (map (lambda (x) x) y) == y
@ -1434,19 +1434,19 @@
(define regen
(lambda (x)
(case (car x)
((ref) (build-lexical-reference no-source (cadr x)))
((primitive) (build-primref no-source (cadr x)))
((quote) (build-data no-source (cadr x)))
((lambda) (build-lambda no-source (cadr x) (regen (caddr x))))
((map)
[(ref) (build-lexical-reference no-source (cadr x))]
[(primitive) (build-primref no-source (cadr x))]
[(quote) (build-data no-source (cadr x))]
[(lambda) (build-lambda no-source (cadr x) (regen (caddr x)))]
[(map)
(let ((ls (map regen (cdr x))))
(build-application no-source
(build-primref no-source 'map)
ls)))
(else
ls))]
[else
(build-application no-source
(build-primref no-source (car x))
(map regen (cdr x)))))))
(map regen (cdr x)))])))
(lambda (e r mr)
(syntax-match e ()
[(_ x)