diff options
author | Andy Wingo <wingo@pobox.com> | 2016-02-02 11:09:00 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-02-02 11:09:00 +0100 |
commit | 486b322fd5ab4211870c877b6ebe8bb386d76589 (patch) | |
tree | d5991f7392e417ebdd68bd260af1bbdc210175a8 /module/system | |
parent | a653271f986316118961bb20f59f5c924b6cd523 (diff) | |
download | guile-486b322fd5ab4211870c877b6ebe8bb386d76589.tar.gz |
Fix frame-call-representation for change to <binding>.
* module/system/vm/frame.scm (frame-call-representation): Fix for change
to <binding>.
Diffstat (limited to 'module/system')
-rw-r--r-- | 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 565177e4c..c9090ef36 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))))) |