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

list*->code* takes a thunk? predicate; it doesnt do anything with it yet

This commit is contained in:
Abdulaziz Ghuloum 2006-12-04 10:01:56 -05:00
parent 7ecb397ec7
commit 15468bd741
3 changed files with 6 additions and 6 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.

4
lib/libcompile.ss
View File

@ -3659,7 +3659,7 @@
(define SL_call_with_values (gensym "SL_call_with_values")) (define SL_call_with_values (gensym "SL_call_with_values"))
(module () (module ()
(list*->code* (list*->code* (lambda (x) #f)
(list (list
(list 0 (list 0
(label SL_car_error) (label SL_car_error)
@ -3892,7 +3892,7 @@
(lambda (ls) (lambda (ls)
(for-each (lambda (x) (printf " ~s\n" x)) ls)) (for-each (lambda (x) (printf " ~s\n" x)) ls))
ls*)) ls*))
(let ([code* (list*->code* ls*)]) (let ([code* (list*->code* (lambda (x) #f) ls*)])
(car code*))))) (car code*)))))
(define compile-file (define compile-file

8
lib/libintelasm.ss
View File

@ -864,7 +864,7 @@
;;; x))))) ;;; x)))))
(define list*->code* (define list*->code*
(lambda (ls*) (lambda (thunk? ls*)
(let ([closure-size* (map car ls*)] (let ([closure-size* (map car ls*)]
[ls* (map cdr ls*)]) [ls* (map cdr ls*)])
(let* ([ls* (map convert-instructions ls*)] (let* ([ls* (map convert-instructions ls*)]
@ -881,9 +881,9 @@
(for-each set-code-reloc-vector! code* relv*) (for-each set-code-reloc-vector! code* relv*)
code*))))))) code*)))))))
(define list->code ;(define list->code
(lambda (ls) ; (lambda (ls)
(car (list*->code* (list ls))))) ; (car (list*->code* (list ls)))))
(primitive-set! 'list*->code* list*->code*) (primitive-set! 'list*->code* list*->code*)
) )