From 6cdcb824f046cf1e12f0dd6696cd44c89c2e975b Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 12 Sep 2008 23:09:45 +0200 Subject: [PATCH] fix confusion in disassemble-bindings * module/system/vm/disasm.scm (disassemble-bindings): Fix external/local confusion when printing args and locals. --- module/system/vm/disasm.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/module/system/vm/disasm.scm b/module/system/vm/disasm.scm index 08299a460..b28e508d0 100644 --- a/module/system/vm/disasm.scm +++ b/module/system/vm/disasm.scm @@ -118,7 +118,7 @@ (for-each (lambda (bind n) (print-info n (format #f "~a[~a]: ~a" - (if (cadr bind) 'local 'external) + (if (cadr bind) 'external 'local) (caddr bind) (car bind)) #f)) args @@ -130,7 +130,7 @@ (for-each (lambda (bind) (print-info (format #f "~a-~a" start end) (format #f "~a[~a]: ~a" - (if (cadr bind) 'local 'external) + (if (cadr bind) 'external 'local) (caddr bind) (car bind)) #f)) binds))