mescc: Have micro-mes use if not to segfault.
[mes.git] / module / mes / elf-util.mes
index 3231e7b041818af9834b192bd96d82f5971f2ac9..72a5981e0b3b56d76e25bebd99afc1c44fcc15a4 100644 (file)
   (append-map cdr (filter function-symbol? (map cdr symbols))))
 
 (define (symbols->text symbols t d)
-  (append-map (lambda (f) (f symbols t d)) (symbols->functions symbols)))
+  (let loop ((functions (symbols->functions symbols)) (text '()))
+    (if (null? functions) text
+        (loop (cdr functions)
+              (append text ((car functions) symbols (- (length text)) d))))))
 
 (define (function-offset name symbols)
   (let* ((functions (filter function-entry? symbols))