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

removed a useless define-record

This commit is contained in:
Abdulaziz Ghuloum 2006-12-04 17:46:44 -05:00
parent 2bcdee8e3b
commit 95ffbd6551
2 changed files with 0 additions and 5 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.

5
lib/libcompile.ss
View File

@ -237,7 +237,6 @@
(define-record funcall (op rand*)) (define-record funcall (op rand*))
(define-record appcall (op rand*)) (define-record appcall (op rand*))
(define-record forcall (op rand*)) (define-record forcall (op rand*))
(define-record code-rec (arg* proper free* body))
(define-record codes (list body)) (define-record codes (list body))
(define-record assign (lhs rhs)) (define-record assign (lhs rhs))
@ -445,10 +444,6 @@
`(code ,label . ,(map E clauses))] `(code ,label . ,(map E clauses))]
[(closure code free*) [(closure code free*)
`(closure ,(E code) ,(map E free*))] `(closure ,(E code) ,(map E free*))]
[(code-rec arg* proper free* body)
`(code-rec [arg: ,(E-args proper arg*)]
[free: ,(map E free*)]
,(E body))]
[(codes list body) [(codes list body)
`(codes ,(map E list) `(codes ,(map E list)
,(E body))] ,(E body))]