From eddecdb057724016379b69c5e377d6ff13450594 Mon Sep 17 00:00:00 2001 From: Noah Lavine Date: Sat, 20 Apr 2013 18:27:48 -0400 Subject: [PATCH 1/3] Bugfix in rtl.scm * module/system/vm/rtl.scm: fix test errors stemming from two functions with the same name. --- module/system/vm/rtl.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/module/system/vm/rtl.scm b/module/system/vm/rtl.scm index 6126e0d..77039aa 100644 --- a/module/system/vm/rtl.scm +++ b/module/system/vm/rtl.scm @@ -777,7 +777,10 @@ (define (link-string-table asm) (intern-string! asm ".shstrtab") (make-object asm '.shstrtab - (link-string-table (asm-string-table asm)) + ;; delegate to a function with the same name but a + ;; different implementation + ((@ (system vm linker) link-string-table) + (asm-string-table asm)) '() '() #:type SHT_STRTAB #:flags 0)) -- 1.7.10.4