[Guile-commits] 01/01: Fix frame-call-representation for change to <binding>.

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 486b322fd5ab4211870c877b6ebe8bb386d76589
Author: Andy Wingo <address@hidden>
Date:   Tue Feb 2 11:09:00 2016 +0100

    Fix frame-call-representation for change to <binding>.
    
    * module/system/vm/frame.scm (frame-call-representation): Fix for change
      to <binding>.
---
 module/system/vm/frame.scm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/module/system/vm/frame.scm b/module/system/vm/frame.scm
index 565177e..c9090ef 100644
--- a/module/system/vm/frame.scm
+++ b/module/system/vm/frame.scm
@@ -1,6 +1,6 @@
 ;;; Guile VM frame functions
 
-;;; Copyright (C) 2001, 2005, 2009, 2010, 2011, 2012, 2013, 2014, 2015 Free 
Software Foundation, Inc.
+;;; Copyright (C) 2001, 2005, 2009-2016 Free Software Foundation, Inc.
 ;;;
 ;;; This library is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU Lesser General Public
@@ -385,7 +385,7 @@
     (define (find-slot i bindings)
       (match bindings
         (() #f)
-        (((and binding ($ <binding> idx name slot)) . bindings)
+        (((and binding ($ <binding> frame idx name slot)) . bindings)
          (if (< idx i)
              (find-slot i bindings)
              (and (= idx i) binding)))))