fix non-ELF unix starter creation

2011-11-26 19:59:53 -07:00 · 2011-11-26 19:59:53 -07:00 · 58fa3dd6d7
commit 58fa3dd6d7
parent 291a18b045
1 changed files with 1 additions and 1 deletions
--- a/collects/compiler/private/elf.rkt
+++ b/collects/compiler/private/elf.rkt
@ -185,7 +185,7 @@
   (lambda (in)
     (read-elf
      in
-      (lambda () (values #f #f #f))
+      (lambda () (values #f #f #f #f))
      (lambda (elf sections programs str-section strs)
        (let ([new-sec-pos (+ (elf-sh-offset elf)
                              (* (elf-sh-esize elf) (elf-sh-ecount elf)))]