mescc: support -c, -o.

[mes.git] / module / mes / elf-util.mes

diff --git a/module/mes/elf-util.mes b/module/mes/elf-util.mes
index 1af8b21128fb5e558cbe85feed8310f13da98e28..5dfd2ecd7c07faf13228814714b2ad0f7386dd90 100644 (file)
--- a/module/mes/elf-util.mes
+++ b/module/mes/elf-util.mes
@@ -46,7 +46,7 @@
         ((char? o) (number->string (char->integer o) 16))))
 
 (define (functions->lambdas functions)
-  (append-map cdr functions))
+  (append-map (lambda (f) (or (cdr f) '())) functions))
 
 (define (lambda/label->list f g ta t d)
   (lambda (l/l)
@@ -110,7 +110,7 @@
 (define data-offset
   (let ((cache '()))
     (lambda (name globals)
-      (or (assoc-ref cache name)
+      (or ;;(assoc-ref cache name)
           (let* ((prefix (member name (reverse globals)
                                  (lambda (a b)
                                    (equal? (car b) name)))))