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

lib/libcompile.ss

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

lib/libintelasm.ss

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